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BASIC 是 目前 国际 上 广泛 使 用 的 一 种 计算 机 语言 。 随 着 : 
微型 计算 机 的 出 现 和 迅速 推广 ，BASIC 不 仅 已 应 用 于 数值 计 : 
算 和 企业 管理 ， 而 且 正 在 渗入 少年 儿童 的 教育 领域 和 家 庭 生活 
之 中 。 在 国外 ， 当 常用 BASIC 编写 程序 对 青 少年 进行 智力 
训练 和 模拟 生活 中 的 游戏 ,这 样 既 可 以 实现 游戏 的 “电子 化 ”， 
提高 理 少年、 儿童 学 习 科 学 知识 的 兴趣 ， 从 而 锻炼 他 们 的. 智 
力 ， 又 可 以 扩大 BASIC 的 应 用 范围 、 提 高 学 习 BASIC 的 ; 
兴趣 和 编写 程序 的 技巧 ， 因 此 BASIC 趣味 程序 愈 来 盒 为 国内 : 
外 读者 所 欢迎 。 

根据 国内 广大 计算 机 爱好 者 的 要 求 ， 我 们 编写 了 “BASIC 
趣味 程序 选 "。 本 书 一 部 分 选 译 自 美国 出 版 的 “BASIC COM- 
PUTER GAMES” 和 其 它 一些 外 国资 料 〈 在 编选 时 对 部 分 程 . 
序 作 了 修改 )， 另 外 一 些 是 我 们 自 编 的 。 其 中 有 模拟 游戏 程序 、 
智力 锻炼 程序 以 及 其 它 一 些 令 人 感 兴趣 的 程序 。 对 每 一 个 程序 
我 们 都 编写 了 使 用 说 明 ， 绝 大 多 数 程序 都 附 有 运行 结果 。 这 样 
做 既 可 以 供 未 学 过 BASIC 的 人 按照 说 明 来 玩 游戏 或 运行 程 
序 , 又 可 以 供 已 学 过 BASIC 的 读者 挑选 若干 程序 对 它们 的 算 
法 和 编写 程序 的 思路 以 及 技巧 进行 深入 的 分 析 。 对 复杂 的 程序 
最 好 画 出 流程 图 对 照 分 析 ， 以 提高 阅读 和 编写 各 种 类 型 程序 的 
能 力 ， 同 时 还 可 以 尝试 用 另外 的 方法 去 编写 程序 ， 或 者 对 程序 . 
作出 某 些 改进 和 发 展 。 

考虑 到 国内 微型 计算 机 的 配置 情况 以 及 使 趣 上 味 程序 能 更 妊 


地 实现 ， 我 们 基本 上 是 按 TRS-80 LEVEL T BASIC 规则 
编写 的 。 书 中 大 多 数 程序 可 以 直接 (或 作 少许 修改 后 ) 在 其 它 
型 号 计算 机 上 运行 。 读 者 所 用 的 如 果 不 是 TRS-80 BASIC， 
可 以 自己 动手 修改 程序 。 我 们 在 木 书 第 一 集 的 附录 中 列 出 了 
TRS-80 BASIC 的 语句 和 函数 ， 并 介绍 怎样 将 TRS-80 
BASIC 写 的 程序 改写 为 其 它 计算 机 BASIC 能 接受 的 程序 。 

本 书 是 为 了 配合 BASIC 语言 的 学 习 而 编写 的 一 本 参考 
读物 ， 我 们 期 望 它 能 起 抛砖引玉 的 作用 。 相 信 广 大 读者 在 阅读 
本 书 之 后 会 受到 启发 ,自己 动手 编写 出 更 好 ,更 适合 我 国情 况 的 
各 夭 趣 味 径 序 。 欢 迎 读者 把 你 们 写 的 程序 寄 给 我 们 ， 我 们 将 选 
渗 汇 编 册 版 本 书 的 以 后 各 集 以 给 读者 (来稿 请 提供 程序 清单 
运行 记录 和 使 用 说 明 ， 并 请 说 明 所 用 计算 机 型 号 。 请 尽量 不 使 
用 只 适用 于 少数 计算 机 的 特殊 语句 和 函数 ) 。 

本 书 是 由 《计算 机 世界 》 编 辑 部 组 稿 的 并 提供 了 有 关 国外 
资料 。 编 这 类 读物 我 们 还 使 乏 经 验 ， 侧 点 和 错误 一 定 不 少 ， 诚 
恳 地 希望 读者 指正 。 

请 带 着 这 本 书 上 机 ， 它 一 定 会 给 你 带 来 乐趣 ! 


[ 注 ， 由 于 本 书 版 面 较 窗 ， 每 行 只 能 排 三 十 多 个 字符 ， 因 此 在 程序 
中 或 输出 的 结果 中 一 行 的 内 容 在 本 书 中 有 时 不 得 不 排 在 二 行 上 ， 请 法 
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1。 原 法 测验 


给 儿童 出 二 位 整数 加 法 题目 ， 要 他 们 从 键盘 上 殴 入 答 数 。 
如 答对 ， 计 算 机 打印 出 “GOOD!”， 接 着 计算 机 又 出 另 一 题 ; 
如 答 不 对 ， 则 打印 出 “TRY AGAINI27 (再 做 一 次 )， 并 重新 
打印 瑟 题 ， 百 到 算 正 确 为 止 。 

如 ， 
12+43= ? 55( 问 号 后 面 的 55 是 游戏 者 从 键盘 项 和 的。 下 同 ) 
GOODI 
58+75=? 133 
GOODI 
83+31=? 124 
TRY AGAINI 
83+31=? 68 
TRY AGAINI 
83+31=? 114 
GOODI 


程序 为 ; 

10 A=INT(I00*RND (0)) 
20 B=INT(I00*RND (0)) 
30 PRINT A++23B 和 = 
40 _ INPUT C 

50 IEC=A+B THENr 380 
60 了 RINT “TRY AGAINI2 


70 GO TO 30 

380 PRINT“GOOD1I2 
90 GOTO 10 

100 上 ND 


2。 除法 测验 (给 答案 ) 


计算 机 给 出 两 位 整数 和 一 位 整数 ， 要 求 你 心算 出 它 的 商 
和 余数 。 如 果 你 给 出 的 商 或 余数 都 对 ， 计算机 会 称赞 你 
“VERY GOOD”，, 并 另 出 新 题 ， 如 果 答 错 了 “回答 的 商 或 余 
数 之 一 错 或 二 者 全 错 ) 打 印 “WwRONGI!” 并 要 求 你 重 做 此 题 。 
同一 题 三 次 错 ， 计 算 机 就 会 告诉 你 正确 答案 。 
如 : 50/3=?16，2 (16 为 商 ，2 为 余数 ) 

VERY GOODI 

41/8=? 5，2 

WRONGI! 

41/8=? 4，3 

WRONGI! 

41/8=? 5，0 

WRONGI! 

THEY ARE 5，1 (应 当 是 商 为 5 余 1) 

80/7=? 


程序 为 ， 

5 N=0 

10 A=INT(100x*RND(0)) 
20 B=INTII0x*RND(0O)) 


@ 2 。 


30 PRINT A “/ 呈 Bi “= 池 

40 _ INPUT C，D 

50 C1=INTCA/B) 

60 D1-=A-ClxB 

70 IF C=Ccl AND D=D1I THEN 130 
80 N=N+1l 

90 PRINT“WRONG! ，” 

i00 IF N < 3THEN 30 

110 PRINT “THEY ARE”，Cl “，” D1 
120 GOTO 5 

130 PRINT “VERY GOOD1 ” 

140 GO TO 5 

200 END 


3。 乘法 测验 (自动 判 分 ) 


ee (一 个 一 位 整数 乘 以 一 个 一 位 或 两 位 
的 整数 ) 请 你 回答 ， 你 将 计算 的 结果 打 入 。 如 果 十 道 题 你 都 
回答 对 了 ， 人 100 分 ， 错 一 题 扣 10 分 。10 道 全 
对 ， 打 印 出 “VERY GOOD! ”。 对 八道 以 上 ， 给 出 
“GOOD! ”。 对 6 道 或 7 道 的 ， 给 出 “PASS! ”。 对 五 道 
以 下 ， 给 出 “FAIL727 。 


NO.1 2x24=? 48 
NO.2 3x*92=? 187 
NO.:3 6x*72=? 432 
NO.4 4x14=? 56 
NO.5 7#x21=? 147 


NO.6 3x31=? 93 


NO.Y 5*15=? 75 
NO .8 6*46=? 276 
ND.9 9x*9=? 81 
NO.10 1x82=? 82 
YOUR SCORE IS 90 
GOODI; 

程序 为 : 

20 S=0 


30 FOR I=1 TO 10 

40 A=INT(I0OxRND(0)) 

50 B=JINT(I00*< 有 RND(0)) 

60 PRINT<NO .> 工 ， 

70 PRINT A; “3 D “= ?3 

80 _ INPUT C 

390 IJFC<>AxBTHEN 10 

100 SS=93+10 

110 NEXT 工 

120 PRINT “YOUR SCORE IS?，S 

130 IF S<60 PRINT “FAILI ”，GOTO 170 
140 IF 3<80 PRINT “PASSI 四 GOTO 170 
150 IF S<100 PRINT“GOOD! ”，GOTO 170 
160 PRINT “VERY GOODI! ” 

170 END 


4。 判 卷 给 分 


你 昌 一 组 选择 题 ， 每 个 题 痢 有 一 个 正确 的 答案 。 例 如 ， 其 


二 忆 


全 


中 一 个 题目 如 下 : 
中 国人 口 为 : (1) 6 亿 (2) 8 亿 (3) 9 亿 《4)10 亿 
正确 的 答案 为 (4) ， 即 10 亿 。 
尔 把 这 组 题目 的 正确 答案 (用 数字 表示 的 ,如 "4 ?表示 应 选 
第 4 项 ) 打 入 计算 机 ， 然 后 把 试卷 交 给 学 生 做 ， ee 
打 人 ; 汁 算 机 。 计 算 机 会 将 它们 与 正确 的 答案 相 比 ， 并 最 示 
学 生 答 对 了 几 题 ， We 
110 语句 是 TRS-80 计算 凡 BASIC 中 用 求 清除 屏幕 画 
面包 ， 它 可 以 使 学 生 看 不 到 你 刚才 打 入 的 正确 答案 。 


TEST SCORING 


INTUT THE NUMBER OF ANSWERS? 5 (一 共有 几 


道 题 ? 你 打 入 5 表示 试卷 中 有 5 道 题 ) 
INPUT CORRECT ANSWERS， 


(你 将 和 的 正确 答案 打 入 ) 


NO.3i? 3 (第 一 题 的 正确 答案 为 (3) ) 
NO.2? 2 (第 二 题 的 正确 答 窒 为 (2)) 
NO.3? 1 (第 三 题 的 正确 答案 为 (1) ) 
NO.4? 2 《第 四 题 的 正确 答 秋 为 (2)) 
NO.5? 3 (第 五 题 的 正确 答案 为 (3)) 


《屏幕 画 而 清除， 以 下 由 学 生 打 入 他 的 答案 ) 
STUDENT'S ANSWERS， 

NO.1 ANSVYTER? 2 

NO.2 ANSWER? 2 

NO.3 ANSWER? 1 

NO.4 ANSWER? 3 


NO.5 ANSWER? 3 
YOUR SCORE JI9S 3 (答对 三 题 ) 


( 清 际 画面 后 由 另 一 学 生 回答 ) 
STUDENT'S ANSWER， 


NO.1 
NO.2 
NO.3 
NO.4 
NO.5 


ANSWER? 3 
ANSWER? 2 
ANSWER? 1 
AN3WERY? 2 
ANSWER? 3 


YOUR SCORE IS 5 


10 
20 
30 
40 
50 
60 
70 
80 
85 
90 


PRINT TAB (15); “TEST SCORINGP?” 
DIM A(100)，C(100) 

PRINT 

PRINT“INPUTTHENUMBER OF ANSWER92?; 
INPUT N 

PRINT “INPUT CORRECT ANSWERS:?” 
FOR I=1 TON 

PRINT “NO.” TI; 

INPUT C(ID) 

NEEXT 工 

CL9 

PRINT “STUDENT S ANSWERS: 3? 

FOR I=1 TON 

PRINT“NO.”5 TI TAB(10)5 “ANSWER?5 
INPUT AI) 


145 IJ]F A(I) =0.THEN 240 

150 NEXT 

160 S=0 

170 FOR I=1TON 

180 IF A(D) <> CGOD) THEN 200 
190 9=9+1 

200 NEXT 工 

205 PRINT 

210 PRINT “YOUR SCORE I9” 9 
220 PRINT 

230 GDTO 100 

240 上 ND 


5。 给 “ 余 ” 猜 数 


你 心里 先 想 好 一 个 1 一 100 之 间 的 整数 X， 将 它 分 别 除 以 
3、5 和 ?7 并 得 到 三 个 余数 。 你 把 这 三 个 余数 告诉 计算 机 ,计算 
机 能 马上 落 出 你 心中 的 这 个 数 。 

用 什么 简单 的 方法 可 以 很 快 地 求 出 此 数 ? 如 果 想 不 出 ， 可 
以 看 程序 中 100 一 130 语句 。 游 戏 记 录 如 下 ， 

PLEASE THINK OF A NUMBER BETWEEN 工 

AND 100. 
YOUR NUMBER DIVIDED BY 3 HAS A 
REMAINDER OF? 1 (你 的 数 除 以 3 余 几 ? 1) 
YOUR NUMBER DIVIDED BY 5 HAS A 
REMAINDER OF? 0 〈 你 的 数 除 以 5 余 几 ? 0 ) 
YOUR NUMBER DIVIDED BY 7 HAS A 
REMAINDER OF? 5 (你 的 数 除 以 7 余 几 ? 5)》 


。 7 了 人 


LET ME THINK A MOMENT… 

YOUR NUMBER WAS 40,RIGHT?YES( 你 的 数 是 40) 

HOW ABOUT THATII 

LET'S TRY ANOTHRR， 

PLEASE THINK OF A NUMBER BETWEEM 1 
AND 100. 

YOUR NUMBER DIVIDED BY 3 HAS A 
REMAINDER OF? 1 

YOUR NUMBER DIVIDED BY 5 HAS A 
REMAINDER OF? 0 

YOUR NUMBER DIVIDED BY 7 HAS A 
REMAINDER OF? 2 

LET ME THINK A MOMENT… 

YOUR NUMBER WAS 100，RIGHT? YES 

HOW ABOUT THATII 

LET'S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETWEEN 1 
AND 100. 

YOUR NUMBER DIVIDED BY 3 HAS A 
REMAINDER OF? 0 

YOUR NUMBER DIVIDED BY 5 HAS A 
REMAINDER OF? 4 

YOUR NUMBER DIVIDED BY 7 HAS A 
REMAINDER OF?， 14 

LET ME THINK A MOMENT… 

YOUR NUMBER WAS 39，RIGHT? NO 

I FEEL YOUR ARITHMETIC IS IN ERROR。 


8 。 


LET“S TRY ANOTHER。 

PLEASE THINK OF A NUMBER BETWEEN 
1 AND 100， 

YOUR NUMBER DIVIDED BY 3 HA9S A 
REMAINDER OF? 1 

YOUR NUMBER DIVIDED'BY 5 百 A9 A 
REMAINDER OF? 1 

YOUR NUMBER DIVIDED BY7 HA9S A 
REMAINDER OF? 1 

LET ME THINK A MOMENT..,. 

YOUR NUMBER WAS 1，RIGHTY? YE3 

HOW ABOUT THATI ! 


程序 为 ， 


30 


40 


45 


50 


55 
60 


PRINT “PLEASE THINK OF ANUMBER 
BETIWEEN 1 AND 100.” 

FRINT“YOUR NUMBER DIVIDED BY 3 HAS 
A REMAINDER OF?”; 

INPUT A 

PRINT “YOUR NUMBER DIVIDED BY 5 
HAS A REMAINDER OF?” 

iNPUT B 

PRINT “YOUR NUMBER DIVIDED BY 7 
HAS A REMAINDER OF 

INPUT 心 

PRINT “LET ME THINK A _ MOMENT” 
FOR IT=1 TO 1500，NEXT I 


100 D=70x*A+21*B+15xC 


e 9 we 


110 IF DC=105 THEN 140 

120 D=D-105 

130 GOTO 110 

140 PRJNT YOUR NUMBER WA9S7 Di 
RIGHT 

160 INPUT Af$ 

170 1F A$=?"YES" THEN 220 

180 IF A$= ?NO THEN 240 

190 PRINT "EH? I DON'T UNDERSTAND 2 
A$; 多 TRY YES OR NO 

200 GOTO 160 

22) PRINT "HOW ABOUT THATI ! 

230 GOTO 250 

240 PRINT "I FEEL YOUR ARITHMTIC IS IN 
ERROR ,， 

250 PRINT "LET'S TRY ANOTHER." 

260 PRINT 

270 GOTO 30 

959 END 


6。 判 素 数 


你 打 入 任意 一 个 正 整 数 ， 计 算 机 会 立即 告诉 你 ， 此 数 是 否 
素数 ( 质 玫 > 。 记 谓 素 数 就 是 除了 1 和 此 数 本 身 之 外 ， 不 能 
任何 其 它 莹 小 整除 的 自然 数 。 

如 虹 打 和 一 个 “0”， 则 程序 结束 运行 。 


本 10 9 


PRIME NUMBER 


YOUR NUMBER? 12 

12 IS NOT A PRIME NUMBER 
YOUR NUMBER? 19 

19 IS A _ PRIME NUMBER 
YOUR NUMBER? 23 

23 I9 A PRIME NUMBER 
YOUR NUMBERY? 2 

2 LIS3 A PRIME NUMBER 
YOUR NUMBER? 0 


程序 为 ; 


10 
20 
30 
40 
50 
55 
60 
70 
80 
90 
100 
120 
130 
150 


PRINT TAB(20); ”PRIME NUMBERY 
PRINT 

PRINT "YOUR NUMBER7s 

INPUT N 

IFN=0THEN 180 

IFN=lTHEN 130 

IFEN=2 THEN 100 

FOR [=2 TO SQR(IABSCN)) 

IF NI=INTCN/DTHEN 130 

NEEX 上 上 [ 

PRINT Ni 7"I9 A _ PRIME NUMBERY 
GOTO 30 

PRINT N 7"I9 NOT A PRIME NUMBERY 
GOTO 30 


。11 。 


180 END 


7。 因数 分 解 


你 打 入 任意 一 个 整数 ， 计 算 机 立即 会 将 它 分 解 为 各 因子 的 
秒 式 ， 运 行 记录 如 下 ; 

INPUT NUMBER TO BE FACTORED TO END 

PROGRAM INFUT 0? 56 

56=(2*#3)(7)(1) (2 关 3 表示 23) 

NUMBER? 999 

999= (3 类 关 3)(37) 

NUMBESR? -450 

一 450= 一 (2)(3 关 关 2)(5 关 交 2)(0) 

NUMBERY? 0 


如 时 不 外 再 继 疆 进行 下 去 ， 可 打 入 “0”， 则 程序 停止 运 
行 。 

程序 为 

100 PRINTI7INPUT NUMBER TO BEFACTORED。 

TO END PROGRAM INPUT 0"， 

110 INPUT N 

115 IF N=0 THEN 260 

120 PRINT Ny “= 光 

135 IF SGNCON)《 >-1 THEN 139 

136 PRINT7 一 

139 N=ABS(CN) 

140 FOR I=2 TO SQR(CN) 
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150 S=0 
160 JE N/EK >INTON/AD THEN 200 
170 N=NVI 
180 3=5+1 
190 GOTO 160 
200 IJF S=0 THEN 220 
204 IF 393=1 THEN 215 
210 PRINT (3 TI 7 沙沙 1 S 7)1 
212 GOTO 220 
215 PRINT (2 TI 72)25 
220 NEXT 
225 PRINT 7(" NS 7)7 
230 PRINT 
240 PRINT NUMBERY7， 
250 GOTO 110 
260 PRINT 
270 END 
8。 水 亿 花 数 

外 谓 水 仙 花 数 系 指 一 个 三 位 数 ， 其 各 位 数字 立方 和 等 于 该 
例如 153 为 一 水 仙 花 数 ， 因 为 153=1+5s+3?。 找 出 
到 999 之 间 全 部 水 仙 花 数 。 

NARCIS9S3US NUMBERS 

370 371 407 

程序 为 ， 
ti0 _ PRINT TAB(20); "NARCIS9US NUMBERS7 
20 上 上 OR I=100 TO 999 
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30 
40 
50 
60 


70 
80 


LET A=INT(I/100) 

LET B=JINTCGI-Ax1l00)/10) 

LET C=I-INT(I/10)x*10 

JE IC7INTIA*AxA+BxBxB+CxCxC) 
THEN 80 

PRINT T， 

NEXT II ，END 


9。 完 数 分 解 


一 个 数 如 时 被 分 解 为 若干 因子 ， 而 这 些 因 子 之 和 正好 等 于 
这 个 数 本 身 ， 则 此 数 称 之 为 “ 完 数 ”。 例 如 : 6 的 因子 为 


1 ,2,3， 


同时 ，6 =1+2+3， 则 6 就 是 一 个 完 数 。 


支 拓 000 之 内 的 所 有 完 数 ， 并 分 解 为 因子 。 


10 
20 
20 
35 
40 
41 
45 
50 
55 
60 
65 
70 
75 
80 
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PRINT TAB(30) CONIPLETE NUMBERY 
DIM S(50) 

PRINT 

羡 洋 

FOR [TI=6 TO 1000 

民 =0 

FOR Z=1 TO 50 

95(Z) =0 

NEXT 2 

冯 三 0 

FOR J=2 TO ITI 

IF IJ INTGIL) THEN 95 
X.= LI/ 

K=K+X 


85 2Z=Z+1 

90 3(Z)= 义 

95 NEXT 

100 jiF KK 2>L THEN 145 

102 IF Z=1 THEN 145 

105 PRINT JTJ /ITS FACTORS ARE 光 
110 FOR Z=50 TO 1 3TEP-1 
]15 JP 95(2) =0 THEN 125 
120 PRINT7 "9(2Z)5 

125 NEXT 2 

130 _ PRINT 

135 Y=Y+l 

140 NEXT II 

145 PRINT 7Y=73Y 


COMPLETE NUMBERS 


6 ITS FACTORS ARE 123 

28 ITS FACTORS ARE 1247 14 

496 ITS FACTORS ARE 1248163162124 248 
Y=3 ( 即 1000 之 内 只 有 三 个 完 数 ) 


10。- 技 吨 - 至 


从 上 面 一 个 “ 完 数 分 解 ” 中 可 知 6 是 一 个 完 数 ， 因 为 6= 1 
+2+3， 它 是 一 个 偶 完 数 。 有 一 公式 可 以 找 出 锡 完 


C=2 (2 一 1)》 


其 中 4 是 一 全 素数 ， 而 且 要 求 (2 -1 仍 


例如 ， wz = 3， 则 


C=2s-:.(23-1)=22X7=28 故 28 为 一 完 败 

又 如 : 4=2， 则 

C=22!.(22--1)=21X3=6， 故 6 为 一 完 

今 想 寻 找 4 在 20 之 内 的 所 有 的 完 数 。 

10 PRINT TAB(30)， "TO _ FIND COMPLETE 
NUMBERSY 

15 _ PRINT 

20 FOR P=2 TO 20 

25 IFP=2THEN 65 

30 FOR B=2 TO SQR(P) 

35 IF P/B=JNTCIP/B)THEN 70 

40 NEXT B 

45 X=2 人 P-1 

50 FOR N=2 TO SQR(X-1) 

55 [IF X/N=INTCOX/N) THEN 70 

60 NEXT N 

65 PRINT "P=" P， 

66 人 

67 PRINT "M= "5 M， 

68 C#=INT(24 个 (了 -1)*M+lE-03) 

69 PRINT 7"C= 与 Ct+ (4 表示 双 精 度 ) 

70 NEXT P 

75 END 


ea li6。 


为 一 个 素数 。 


程序 运行 结果 为 
TO FIND COMPLETE NUMBERS 


卫 =2 M=3 C=6 
了 =3 M=7 C=283 
卫 =5 M=31 C=496 
了 =7 M=127 C= 8128 
P=11 M= 2047 C=2096128 
P=13 M=8191 = 33550336 
了 =17 M=131071 = 8589869055 
P=19 M = 524287 C=137438691327 
上 面 的 P 代表 上 ，M 代 表 2 -1，C 代表 完 数 。 

如 ， C= 22-.M 


11。 人 口 爆炸 


82 年 全 国 第 三 次 人 口 普 查 的 结果 是 全 国 总 人 口 为 10 亿 
3 千 多 万 。 如 果 我 们 不 厉行 计划 生 训 政 策 , 若 于 年 后 我 国 将 有 多 
少 人 呢 ? 我 们 用 计算 机 项 算出 的 结果 会 使 那些 想 “ 多 生 一 个 ? 
的 人 大 吃 一 惊 。 如 果 每 年 人 口 增长 率 为 3 %。2000 年 全 国人 
口 为 17.5 亿 ， 到 2050 年 时 达 77 亿 ， 而 1000 年 以 后 则 为 
7x102” 人 ， 即 七 十 万 亿 亿 ， 这 是 个 天 文 数字 。 它 到 底 多 大 
呢 ? 或 国 面积 〈 包 括 高 山 、 沙 漠 、 江 河 、 湖 泊 在 内 ) 为 960 
万 平方 公里 ， 每 平方 米 上 需要 居住 7.3xX108 人 - 即 7.3 
亿 人 ， 册 证 全 国都 盖 满 100 层 的 摩天 大 楼 ， 也 无 法 容 纳 这 么 
多 人 。 如 果真 出 现 这 样 的 情况 ， 那 真是 人 无 立 锥 之 地 的 可 外 的 
篆 景 。 如 果 人 口 增长 率 为 2 台 。 则 2000 年 时 为 14.7 亿 人 ， 
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1000 年 以 后 为 4.1x107 人 ， 每 平方 米 居 人 和 住 43,000 人 。 如 
果 年 说 长 率 为 1 %，1000 年 后 为 2.16x10” 人 ， 即 二 万 亿 
人 人， 每 平方 米 居住 2 人 。 如 能 将 增长 率 降 到 千 分 之 五 ， 则 
1000 年 后 我 国人 口 为 150 亿 人 ， 每 平方 米 居 住 0.015 人 。 
而 现在 我 国 每 平方 米 只 居住 0.0001 人 。 

请 看 下 页 结果 。 

在 下 页 打印 的 结果 中 ,对 应 于 每 一 个 增长 率 有 两 行 数 字 , 第 
一 行 是 人 口 总 数 ， 第 二 行 是 每 平方 米 居住 的 人 数 。 数 以 指数 形 
式 表 示 ， 如 7.08046E + 21 表示 7.08046 x 102+。 

程 说 为 : 

10 DIM Y(3)，P(3)，A(3) 

20 P1=1030000000 

30 READ Y(GD)，Y(2)，Y(3) 

40 PRINT “RATE”，“2000”,“20502，4AFTER 1000: 

YEARS?” 

45 PRINT 

50 FOR R=0.03 TO 0.005 STEP -0.005 

60 FOR I=1 TO 3 

70 PIGD=Plx(I+R) 个 (Y(D) 

75 A(D =PGID/V9600000000000 

80 NEXT IT 

90 PRINT R，P(1)，P(2)，P(3) 

92 PRINT“ ”， A(1)，A(2)，A(3) 

100 NEXT R 

140 DATA 18，68，1000 

200 END 
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395/9T0 0 

TI 十 宁 Z4609 FT 
82875 5 

8I+ 可 6289T 5 
992 8T3 

39T 十 可 9T5T10 了 
7 了 0822F7 

LI 二 可 5I50I 7 
90+ 可 80T89 9 
6T 二 可 F8S897 9 
80 十 可 /7328 7 


TC 十 可 9F080 7/ 
(直击 士 一 ) 


VS 和 000T 并 可 工本 立 


F0- 可 TIT909"T 
60 二 可 28937T7 T 
0 一 避 S90TT 5 
60 十 可 85950 2 
0- 7F6c96 2 
60 十 了 58F88 5 
7 了 70- 了 可 99FCT 
60 十 呆 /9696 8 
7 了 0… 艺 69T92 9 
60 十 本 89T59 9 
T0- 扣 4200 8 


60 十 可 5489 7/ 


(机 )0905 


0 可 89T2T7T 
60 + 可 7 了 L295T T 
0- 宫 98885 T 
60 二 可 80285 
FF0- 写 99507 
60+ 人 所 9S9F8 T 
70- 气 93589 
60 十 可 860T/T 
0- 可 28829 


60 + 革 F7309 


(z 党 /YY)F0- 可 95958T 


(日 Y 喇 )60 + 可 98S0T 


(要 )0005 


80.33 


T0 0 


LO 
一 { 
C 
字 


50 0 


1 
EN] 
守 
一 


80 0 
〈《 谈 油 汗 ) 
可 LY 芝 
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下 面 的 程序 用 来 计算 人 口 赠 长 率 。 

1982 ee 人 亿 ， 如 果 打 入 2000 年 末 时 人 口 限 
制 数字 . 疏 知 道 每 年 的 人 口 溢 民 这 应 跟 制 百 分 之 几 的 范围 内 。 

全 如 ， 要 求 2000 年 时 中 国人 日 不 超过 12 亿 ， 则 计算 出 
每 年 的 人 口 增长 率 不 应 超过 0.853%。 如 果 涡 望 2000 年 时 中 
国人 口 不 超过 13 亿 ， 则 年 人 口 增长 率 不 应 超过 1.30176%。 

如 果 不 相 再 测算 ， 则 打 入 "0"。 


GROWTH RATE OF POPULATION 
POPULATION IN 20003 1.29 


YOUR GROWTH RATE MUST BE LES9 THAN 
8.53 蕊 -03 
POPULATION 1N 2000? 1.3E9 


YOUR GROWTH RATE MUS9T BE LESS THAN 
1.30176 尼 -02 


POPULATION IN 2000? 1.5E9 

YOUR GROWTEF RATE MU9ST BE LES9 THAN 
2.11103 尼 -02 

POPULATION IN 2000? 1.1E9 


YOUR GROWTHEH RATE MUST BE LES9 THAN 
3.6595F-04 
POPULATION IN 2000? 0 


程序 为 ， 
10 PRINT TAB(20); "GROWTH RATE OF 
POPULATIONY7 


sa 20 。 


20 PRINT 

30 PRINT ”POPULATION IN 2000"5 

40 INPUT P 

45 IFP=0THEN 110 

50 了 PRINT 

60 LET R=(P/1.03E9) 个 (1.0/18) -1I 

70 PRINT YOUR GROWTH RATE MUST BE 
LESS THAN7;， 及 

80 PRINT 

100 GOTO 30 

110 END 


求人 的 生 的 计算 公式 是 这 样 得 来 的 ， 


卫 =108。(1+R)38 


二 (1 十 民 )18 
- 王 - 
吕 这 =1+R 
ee 有 R = (P/108)1748 一 1 


12。 人 口 预测 


1982 年 中 国人 口 为 十 亿 三 千 万 ， 我 们 希望 在 给 出 年 人 口 
增长 率 后 ， 计 算 机 能 够 打印 出 从 1983 年 到 2000 年 每 年 中 国 
的 人 口 数 。 
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PRINT TAB(15); ”POPULATIONY 


PRINT 
P=1.03E9 
PRINT 7R=?5 
INPUT R 

FEOR Y=1 TO 18 
P=Px(I+R) 


PRINT 1982+Y TAB(14);INT(CP) 


N 正 X 工 也 
END 


01 


POPULATION 


aa Fa 


.0403 忆 +09 
.0507 有 +09 
.06121 世 +09 
.04060 甩 +09 
.07182 玉 + 09 
.082538 世 十 09 
.09336 世 二 09 
.10429 世 + 09 
.11534 玉 +09 
.12648 世 二 09 
.13775 也 + 09 
.14912 玉 + 09 
.16061 开 +09 
.17222 玉 十 09 


4997 1.18393 瑟 + 09 
1998 1.19577 瑟 二 09 
1999 1.20773 也 +09 
2000 1.21981 辽 +09 


上 述 结果 表明 ， 当 年 增长 率 为 0.01 时 ， 公 元 2000 年 时 
我 国 将 有 人 口 十 二 亿 一 千 九 百 八 十 一 万 余人 。 

再 来 看 看 ， 当 人 口 增长 率 控制 在 不 同 的 数字 时 ， 人 口 达到 
12 亿 需 要 多 少年 。 可 以 看 到 ， 当 R=3%% 时 ， 只 要 6 年 ， 人 


R 就 达到 12 亿 。 而 当 R=1% 时 ，16 年 后 达 12 亿 ， 而 
R= 0.5% 时 ，31 年 后 〈 即 2013 年 ) 才 达 12 亿 。 

有 全 =0.03 N=6 立 =1988 P1=1.22985 所 + 09 
及 =0.025 N= 7 Y=1989 P1=1.22432 了 上 二 09 
有 =0.02 N=8 Y=1990 P1=1.20678 瑟 +09 
人 =0.015 N=11 立 =1995 P1=1.21323 忆 +09 
R=0.01 N=16 了 Y=1998 P1=1.20768 也 +09 
及 =5 孔 一 03 N=31 Y=2013 P1=1.20207 瑟 +09 

10 有 FEAD R 


20 IFER=-1THEN 140 

30 了 P1=1030000000 

40 N=0 

50 P1= 了 Plx(1+R) 

60 N=N+i 

70 IF Pi>>=1200000000 THEN 30 

380 GOTO 50 

90 PRINT 7"R= 总 R，IN=/ N，7Y=7 1982 
++N，7"P1=7” 了 1 


se 23 


100 DATA 0.03,0.025,0.02,0.015,0.01,5 世 -0.3，- 工 
120 GOTO 10 
140 瑟 共 也 


13。 杨辉 三 角形 

杨 三 角形 的 每 一 行 是 (x+y)a 的 展开 式 各 项 的 系数 。 
如 第 -一 行 的 1 就 是 (x+y)" 的 系数 ， 第 三 行 的 1，2，1 是 
(CGK+y)2 的 展开 式 x+2xy+y2 各 项 的 系数 。 可 以 看 出 :对 角 
绕 和 每 行 的 第 一 列 都 为 1 ， 其 余 各 项 是 它 的 上 一 行 中 前 一 个 元 
和 风 二 后 和 庆 Ce 
(3 ) ， 是 第 三 行 第 一 列 和 第 二 列 两 个 元 素 之 和 。 

你 想 汀 印 多 少 行 的 场 辉 三 角形 ， 可 以 在 开始 将 此 数字 打 入 


计算 宙 。 
? 10 
1 
1 1 
1 这 了 
1 3 3 1 
1 46 4 1 
1 5 1 105 1 
1 6 15 2015 6 1 
1 7 3233535 217 1 
1 8 ?3 56 70 .56 288 1 
1 9 3 84 12612684 36 9 1 


程 让 茹 下， 
5 JINPUT N 
10 DIM ACNN) 


ee 24 。 


20 FOR IT=1 TON 

30 LET AD =1 

40 LET AL1) =1 

50 NEXT TI 

60 FOR I=3 TON 

70 FOR J=2 TO I-1 

80 LET M=TI-1 

90 LET AdJ) =A(M,J-1) +ACM,J) 
100 NEXT ] 

110 NEXT 1 

120 FOR K=1 TO N 

130 FOR J=1 TO KK 

150 PRINT TAB(4x J)3A(CK,J); 


160 NEXT 了 
170 PRINT 
180 NEXT 开 
190 PRINT 
200 END 
14。 魔方 阵 


nz 个 不 同 的 正 整数 按 方 阵 形 排列 , 它 的 每 一 行 、 每 一 列 和 
对 角 线 的 各 元 素 之 和 相等 ， 这 个 方 阵 称 魔方 阵 。 由 自然 数 1 到 
nz 构成 的 魔方 阵 是 最 普通 的 。 现 作 奇 数位 的 看 方 阵 。 

你 如 打 人 “3”， 表 示 要 作 3x3 的 鹿 方 孟 ， 打 入 9 ,表示 
要 作 98x9 的 魔方 阵 。 计 筑 机 除了 打印 出 魔方 阵 外 ， 还 等 诉 你 
这 个 魔方 阵 的 每 行 〈“ 或 列 ) 各 元 素 之 和 是 多 少 。 如 3x3 的 跤 
方 阵 ， 每 行 之 和 为 15。 
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话 方 阵 中 各 数 的 排列 规律 为 ， 

(1 将 “12” 放 在 第 一 行 正 中 一 列 。 

(2) 从 “2” 起 直到 nxan 为 止 按 下 列 规则 放 ， 

称 一 全数 存放 的 行 数 比 前 一 个 数 的 行 数 减 1 , 列 数 则 加 1。 

(3》 如 果 上 一 个 数 的 行 数 是 1 ， 则 下 一 个 数 的 行 数 为 
(最 下 一 行 ) ， 如 在 5x5 的 方 阵 中 1 在 第 一 行 ， 则 2 应 放 在 
贫 五 行 第 四 列 ， 3 放 在 第 四 行 第 五 列 。 

(4) 当 上 一 个 数 的 列 数 为 n 时 ， 下 一 个 数 的 列 数 应 为 1， 
行 数 减 1。 如 3 在 第 四 行 第 五 列 ，4 应 在 第 三 行 第 一 列 。 


运行 记录 如 下 ， 

? 3 
8 1 6 
3 7 
4 
SUM=15 

第 二 次 : 

? 5 
1l17 24 1 8 15 
23 5 7 14 16 
4 13 20 22 
10 12 19 21 3 
11 18 25 2 9 
SUM=65 

第 三 次 ， 

了 


“26 “ 


22 31 40 49 2 1 20 
SUM = 175 
DIM N(15,15) 
INPUT M 
LET J=1 
LET KK=(M+1)/2 
LET M2=MxM 
FOR I=1 TO M2 
LET N(J, 必 ) = 工 
LET A=I/M 
LET B=I-INTIA)* M 
IF B=0 THEN 210 
IE J=1 THEN 150 
LET J=J-1 
GOTO 160 
LET J= M 
IFRKR=MTHEN 190 
LET KK= 开 +1 
GOTO 250 
LET K=1 
GOTO 250 
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210 IF J >M THEN 240 

220 LET J=1 

230 GOTO 250 

240.LET J=J+TI 

250 NEXT 工 

265 工 =0 

270 FOR I=1 TO M 

275 LET T=T+N(GI,I) 

280 FOR J=1 TO M 

290 PRINT TAB(GJ*4)3 NGCI,J); 
300 NEXT J 

310 工 RINT 

320 NEXT 

325 PRINT 

330 PRINT TAB(4)s7SUM = 7; 代 
335 PRINT 

340 END 


15。 转圈 的 数字 


将 1，2，3，…"， n2 这 样 一 组 连续 的 自然 数 按 下 面 形 式 打 
巧 出 来 ， 各 数 的 顺序 是 转圈 排列 的 。 


< 一 一 一 


16 15 14 13 1 


10 
20 
30 
40 
50 
60 


DIM A (19,19) 
JINPUT N1 

M=1 
N=1/2x(NL-1) 
FOR KK=1 TON 
K1=K 民 +1 

工 =N1-(K-1) 
N2=N1- 开 

FOR 工 =K TOT 
A(, 民 ) = M 
M=M+1l 
NEXT II 

FOR J= 和 1 TO 个 
A(T,J) = M 
M=M+1I 
NEXT 可 

FOR I1=K TO N2 
I=N1-I! 
A(T) = M 
M=M+1l 

NEXT II 

FOR J1= 和 1 TO N2 
J=N2-Jl+K1 
A(K,J) = M 
M=M+1l 

NEXT J1 


se 20 


270 NEXT 开 

280 A(N+1,N+1)=M 

290 FOR I=1 TO NI1 

300 FOR J=1 TO NI1 

310 PRINT TAB(C4xJ)A(C,J)y 

320 NEXT 可 

330 PRINT 

340 NEXT [ 

350 END 

从 键盘 输入 一 个 值 给 N1， 表 示 要 打印 的 方 阵 每 边 有 几 
。 如 N=7， 每 边 有 7 数 ， 方 阵 共 有 7x7= 49 个 数 。 
运行 记录 ， 

7 “《〈 要 求 打 印 7x7 的 方 阵 ) 

24 23 22 21 20 19 

25 40 39 38 37 18 

26 41 48 47 36 17 

27 42 49 46 35 16 

28 43 44 45 34 15 

29 30 31 32 33 14 

8 9 10 11 12 13 


人 
灾 


~ 中 人情 人 


16。 枉 德 巴赫 狂想 


根据 向 德 巴赫 猪 姐 ， 任 何 一 个 偶数 都 可 以 分 解 为 两 个 素数 
(质数 ) 之 和 。 这 个 程序 能 将 给 定 的 任 一 偶数 分 解 为 两 个 素 
数 。 


ee 30 。 


程序 为 : 


10 
20 
30 
35 
40 
50 
60 
70 
75 
80 


120 


X=1 

INPUT N 

人 = 又 +1 

IF X=2 THEN 70 

FOR P=2 TO SQR(X) 

IF X/P=INT(IX/P) THEN 30 
NEXT P 

Y=N- 共 

IF Y=2 THEN 110 

FOR P=2 TO SQR(CY) 

IF Y/P=INT(CY/P) THEN 30 
NEXT P 

PRINT N 和 7 =73X37 TI Y 
PRINT 

GOTO 10 


程序 开始 运行 后 ， 你 打 入 一 个 偶数 。 


? 100 ( 打 入 100) 


100 


=3+97 
? 86 
86 = 
? 50 
50 = 


3+83 


3+47 


可 以 把 4 到 任 一 偶数 之 间 的 每 一 偶数 分 解 为 两 个 素数 之 和 


并 打印 出 


来 。 
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4=2+2 6=3+3 8=3+5 10=3+7 
12= 5 二 7 1J4= 3 +11 16= 3+13 18= 5 十 13 


3 十 19 24= 5 十 19 26= 3 二 23 


k 
己 
负 
co 
十 
二 
~ 
No 
[ 
中 


28= 5 +23 30= 7 +23 32= 3 +29 34= 3 十 31 


5 INPUT N 

10 FOR I=4TONSTEP 2 

20 叉 =1 

30 和 = 和 +1 

35 IFEFX=2THEN:70 

40 FOR P=2 TO SQR(CX) 

50 JIJF X/P=INT(IX/P) THEN 30 
60 NEXT P 

70 Y=N-X 

75 JEY=2 THEN 110 

80 FOR P=? ”9 SQR(CY) 

90 IF Y/P=INT(CY/P) THEN 30 
00 NEXT P 

110 PRINT Ny 7 = "3X 7 TV 了 
120 END 


32 。 


17。 火车 补 汽 诗 


巡 是 给 中 学 生出 的 计算 “时 间 一 速度 一 距离 ”关系 的 算术 
游戏 题 具 。 已 知 距 离 = 速度 x 时 间 ， 计 算 机 可 能 出 如 下 题目 ， 
一 个 小 汽车 的 时 速 为 54 哩 /时 ， 火 车 时 速 为 36 哩 /时 ， 在 一 
次 旅行 中 小 汽车 比 火 车 快 11 小 时 。 问 小 汽车 走 了 多 少 小 时 ? 
从 代数 可 知 : 假如 设 小 汽车 走 了 X 小 时 ， 则 有 : 

54 双 = 36(X+11) 
ee (54 一 36)X=36X1ll 8 X = 让 之 3 = 22( 时 ) 

中 学 生 将 算出 的 结果 打 入 ， 如 果 与 正确 答案 误 差 不 超 过 
5 %， 则 认为 对 ， 否 则 错 。 计 算 机 还 会 告诉 你 ， 正 确 答 案 税 你 
的 误差 有 多 大 〈%) 。 

TRAIN AND CAR 

TIME-SPEED DISTANCE EXERCISE 


A CAR TRAVELING 54 MPH CAN MAKE A 
CERTAIN TRIP IN 

11 HOURS LESS THAN A TRAIN TRAVELING 
AT 36 MP 碧 . 

HOW LONG DOES THE TRIP TAKE RV 
CAR? 23 

GOOD! ANSWER WITHIN 4PERCENT， 

CORRECT ANSWER IS 22 HOURS. 


ANOTHER PROBLEM(YES OR NO)? YES 


A CAR TRAVELING 40 MPH CAN MAKE A 
CERTAIN TRIP IN 

14 HOURS LESS THAN A TRAIN TRAVEL- 
ING AT 34 MP 五 . 

HOW LONG DOES THE TRIP TAKE BY 

CAR? 20 
SORRY. YOU WERE OFF BY 297 PERCENT， 
CORRECT ANSWER 1S 79.3333 HOURS. 


ANOTHER PROBLEM (YES OR NO)? YE9 


A CAR TRAVELING 47 MPH CAN MAKEE A 
CERTAIN TRIP IN 

16 HOURS LESS THAN A TRAIN TRAYEL- 
ING AT 22 MPHH. 

HOW LONG DOES THE TRIP TAKE BY 
CAR?14 

GOODI! ANSWER WITHIN 1 PERCENT. 

CORRECT ANSWER IS 14.08 HOURS39. 


ANOTHER PROBLEM(YES OR NO)? NO 


程序 为 ， 


工 
3 
4 
6 
10 
15 


20 


e 34。 


PRINT TAB(i3); TRAIN AND CARY7 

PRINT 

PRINT7YTIME-SPEED DISTANCE 下 XERCISEY 
PRINTI 

C=INT(25xRND(0)) +40 
D=INT(G15xRND(CO))+5 

工 =INT(19*RND(0)) +20 


25 


30 


35 


40 
45 
50 
55 


60 


65 
70 


80 
90 
95 
100 
105 
110 
999 


本 程 


PRINT 7"A CAR TRAVELING" C: “MP 瑞 
CAN MAKE A CERTAIN TRIP IN 

PRINT D，7"HOURS LESS THAN A TRAIN 
TRAVELING AT7 Ti “MP 也 .7 


PRINT "HOW LONG DOES THE TRIP TAKE 已 
BY CAR7; 


INPUT A 

V=DxT/C-=-T) 

已 =INTIABS(CV-A)*l00/A)+.5》 

IF 了 >5 THEN 70 

PRINT 7GOODI! ANSWER WITHIN7， E; 
PERCENT." 

GOTO 80 

PRINT 7SORRY. YOU WERE OFF BY7 也; 
“PERCENT 

PRINT "CORRERECT ANSWER TS V37FHOURS.7 
PRINT 

PRINT "ANOTHER PROBLEM (YES OR NO)7 
INPUT Ag$ 

PRINT 

IF A$=7"YE9" THEN 10 

END 


18。 物 理 测验 
序 用 来 测验 运动 学 的 基本 知识 。 假 设 有 人 把 一 个 球 以 


某 一 速度 从 地 面向 上 抛 ， 请 你 回答 以 下 三 个 问题 ， 


1 
2 


它 的 最 高 点 府 地 面 多 少 米 ? 
多 少 秒 钟 后 它 返回 地 面 ? 


3。 过 了 基 - 一 时 间 ( 秒 ) 后 ， 它 能 速度 是 多 少 ? 
计算 机 对 你 的 回答 作 判 断 。 如 果 它 和 应 有 的 计算 值 相差 
人 超过 15%， 则 认为 “足够 接近 >” ， 否 则 将 认为 “不 接近 
(实际 秆 ) ”， 同 时 告诉 你 应 有 的 实际 得 是 多 少 ?你 分 别 回答 
了 以 上 三 个 问题 后 ， 计 算 贞 就 统计 出 你 在 这 三 个 问题 中 究竟 答 
对 了 几 个 。 
A BALL IS THROWN UPWARDS AT 35 
METERS PER SECOND. 


HOW HIGH WILL IT GO (CIN METERS)? 10 

NOT EVEN CLOSE.... 

CORRECT ANSWER ITIS 61.25 

HOW LONG UNTIL [ITRETURNSCN SECONDS9)? 
7 

CLOSE ENOUG 末 . 

CORRECT ANSWER I9 7 

WHAT WILL ITS VELOCITY BE AFTER 4.5 
SECOND3? 20 

NOT EVEN CLOSE 

CORRECT ANSWER IS -10 

1 RIGHT OUT OF 3. 


A BALL IS THROWN UPWARDS AT 25 METER3S 
PER SECOND. 


HOW HIGH WILL IT GO (IN METERS)? 45 
NOT EVEN CLOSE...， 
CORRECT ANSWER I9 31.25 


96。 


HOWLONG UNTIL IT RETURNS 
(IN SECOND9S) ? 4 

NOT EVEN CLOSE . . .。 

CORRECT ANSWER I9 5 


WHAT WILL ITS VELOCITY BE AFTER 
3.2 SECOND3? 12 

NOT VEN CLOSE.... 

CORRECT ANSWER IS -7 


0 RIGHT OUT OF 3， 


程序 为 


100 PRIN 工 

105 PRINT 

106 Q=0 

110 V=5+TINT(35*xRND(0)) 

111 PRINT 7"A BALL IS THROWN UPWARDS 
AT7 V 7 METERS PER SECOND.7 

112 PRINT 

115 A= .05*sV 个 2 

116 PRINT 7HOW HIGH WILL IT GO (CIN 
METERS)7; 

117 GOSUB 500 

120 A=V/5 

122 PRINT "HOW LONG UNTIL IT RETURNS 
(IN SECOND9S)75 

124 GOSUB 500 
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30 T=1+INT(2x*VxRND(0))/10 

432 A=T-10x 熙 

134 PRINT "WHAT WILL ITS VELOCITY BE 
AFTER T， ”SECONDS"; 

136 GOSUB 500 

140 PRINT 

450 PRINT Q "RIGHT OUT OF 3.0 

160 IF Q< 2 THEN 100 

170 PRINT NOT BAD.， 

180 GBPO 100 

500 INPUT G 

502 IF ABS((G-A)/A)<.15 THEN 510 

504 PRINT "NOT EVEN CLOSE...." 

506 GOTO 512 

510 PRINT "CLOSE ENOUGH.， 

511 Q=Qr+1l 

512 PRINT "CORRECT ANSWER IS "， A 

520 PRINT 

530 RETURN 

399 END 


19。 找 零 钱 


计算 机 模拟 商店 的 出 纳 员 。 你 在 商店 里 买好 了 东西 ， 售 货 
员 计算 完毕 你 应 付 的 货款 。 到 收 款 台 付款 时 ， 出 纳 员 向 计算 
s 38 。 


机 打 入 你 应 付 的 款 数 和 你 所 交 的 票 拓 。 此 时 计算 机 马上 会 回 
答 : 应 找 回 多 少 钱 ， 并 且 指 出 ， 应 拿 出 十 元 的 、 五 元 的 、 二 元 
的 、 一 元 的 、 五 角 的 、 起 角 的 、 一 角 的 纸币 各 多 少 张 ， 五 分 
的 、 二 分 的 、 一 分 的 询 币 各 多 少 枚 。 
程序 和 打印 结果 中 ，“YEN2” 表 示 “ 元 ”、“JAO” 慌 
示 4 有 角 ?2 机 6FFEN2 表示 6 分? 
运行 记录 如 下 ， 
I，YOUR FRIENDLY MICROCOMPUTER，WILL 
DETERMINE 
THE CORRECT CHANGE FOR ITEMS COSTING 
UP $100 
COST OF ITEMY? 23.21 (货款 ) 
AMOUNT OF PAYMENT? 50 (付款 数 ) 
YOUR CHANGE，$26.79 (应 找 ) 


2 TEN YEN BILL(S) (十 元 二 张 ) 
1 FIVE YEN BILL(S) (五 元 一 张 ) 
1 ONE YEN BILL(S) (一 元 一 张 ) 
1 FIVE JAO BILL(S) (五 角 一 张 ) 
1 TWO JAO BILL(S) (二 角 一 张 ) 
1 FIVE FEN(S) (五 分 一 枚 ) 
2 TWO FEN(S) (二 分 二 枚 ) 


THANK YOU， COME AGAIN 
COST OF ITEM9? 10.92 
AMOUNT OF PRYMENT? 20 
YOUR CHANGE，$9.08 

1 FIVE YEN BILL(S) 

4 ONE YEN BILL(S) 


se 39 kg 


90 
105% 
110 


习 4D 。 


1 FIVE FEN(CS) 

1 TWO FEN(9) 

1 ONE FEN(S) 

THANE YOU，COME AGAIN， 
CODST OF ITEM9? 0.03 
AMODUNT OP RAYMENTY? 10 
YOUR CHEANGE，$9.97 

FIVE YEN BILL(CS) 

ON YEN BILL(S) 

FIVE JAO BILL(C9S) 

TWO JAO BILL(C9) 

FiIV 了 下 EN(CS) 

工区 DO FEN(CS) 

THEANK YOU，COMPRE AGAIN. 


Fri 卢 必 情 


A/; 


PRINT 7I，YOUR FRIENDLY MICROCOMPU- 
TER，WILL DETERMINEY 

PRINT 7THE CORRE-T CHEANGE FOR 
ITEMS COSTING UP TO $1007 

了 PRINT 

PRINT COST OF IEEM7; 

INPUT A:PRINT "AMOUNT OF PAYMENT7; 
INPUT P 

C=P-A:M=C: IFECCG20THEN 110 
PRINTICORRECT AMOUNT，THANK YOU.Y 
GOTO 60 

IF CS 20 THREN 140 


340 
350 
360 


PRINT "SORRY，YOU HAVE SHORT- 
CHANGED ME $"， A-P 

GOTO 60 

PRINT "YOUR CHANGE，$"，C 
D=INT(CC/10) 

IF D=0THEN 180 

PRINT D;” TEN YEN BILL(S)Y 
C=M-(D*10) 

己 =INT(C/5) 

iF 了 =0THEN 220 

PRINT E;” FIVE YEN BILL(CS)7 
C=M-(Dx10+ 卫 *5) 

F=INT(C) 

IFERFR=0THEN 260 


D PRINT FI ONE YEN BILL(CS)7 
0 C=M-(Dx1l10+ 蕊 *5 二 EF) 


C=Cxl00 

N =C 

G=INT(C/50) 

IF G=0THEN 320 

PRINT G 和 7 FIVE JAO BILL(S)7 
C=N-(Gx50) 

H=INTCC/20) 

IF H=0OTHEN 360 

PRINT HI TWO JAO BILL(S)7 
C=N-CG<50+ 开 *20) 

I= INT(CC/10) 
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380 
390 
400 
410 
420 
420 
440 


TIET=0 THEN 400 

PRINT TONE JAO BILL(CS)7 
C=N-(G 关 50+ 吾 *20+Ix10) 

J= INT(CV5) 

IE J=0THEN 42:0 

PRINT Ji FIVE FEN(CS)7 
C=N-(Gx50+Hx20+Ix1l0+Jx5) 


450 民 =INT(CC/2) 


460 


560 


IE 必 =0THEN 480 

PRINT KK ”TWO FEN(S)7 
C=N-(CG*50+Hx20+Ix1l0+Jx<5+ 开 x*2) 
L=INTICC+0.5) 

IFEL=0THEN 520 

PRINT LI”ONE FEN(S)7 

PRINT' ITHANK YOU，COME AGAIN.7 
PRTINT 

GOTO 60 

END 


20。 猜 数 游戏 


先 由 计算 机 产生 一 个 1 一 100 之 间 的 随机 整数 ， 你 来 猪 这 


个 数 。 的 


每 次 可 以 打 入 两 个 数 ， 表 示 要 猜 的 数 在 此 两 个 数 也 


间 。 计 算 机 会 回答 你 ， 该 数 是 在 你 所 指出 的 范围 之 内 呢 ， 还 是 
大 于 此 两 数 ， 或 小 于 此 两 数 。 然 后 你 再 钞 第 二 次 ， 应 争取 在 六 


次 之 内 猜 出 来 。 最 后 一 次 你 应 打 入 两 个 相同 的 数字 ， 表 示 此 数 
即 是 你 要 猜 的 数 。 
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下 面 是 运行 记录 

GUESS +#+ 1 ? 25,75 

YOU HAVE TRAPPED MY NUMBER, 
GUESS # 2 ? 40,60 


MY NUMBER IS9 SMALLER THAN YOUR TRAP 
NUMBERS . 


GUESS # 3 ? 30,37 

YOU HAVE TRAPPED MY NUMBER， 

GUPSS #+ 4? 34,36 

YOU HAVE TRAPPED MY NUMBER. 

GUES9S # 5? 35,35 

MY NUMBER IS SMALLER THAN YOUR TRAP 
NUMBERS . 


GUESS #+ 6 ? 34,34 

YOU GOT IT 1! 1! 

TRY AGAIN， 

GUESS # 1 ? 30,80 

YOU HAVE TRAPPED MY NUMBER， 

GUESS # 2 ? 50,60 

MY NUMBER IS SMALLIPR THAN YOUR TRAP 
NUMBERS 

GUES9S9 # 3? 35,45 

MY NUMBPER JIS SMALLER THAN YOUR 
TRAP NUMBERS. 
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GUESS #+ 4? 32,34 
YOU HAVE TRAPPED MY NUMBER . 


GUESS + 5 ? 33,33 

MY NUMBER IS SMALLER THAN YOUR 
TRAP NUMBERS . 

GUE9SS +# 6? 32,32 

YOU GOT ITI ! ! 


程序 ， 


10 G=6 

20 N=100 

30 X=INTINx*RND(0O))+1 

40 FOR Q=1 TOG 

50 PRINT 

60_ PRINT "GUESS 4 Qi 

70 _ INPUT A,B 

80 IFA-B ANDX-ATHEN 250 

90 IF A“-=B THEN 110 

100 GOSUB 210 

110 IF A《-=X AND X(=B THEN 170 

120 IF X《A THEN 150 

130 PRINT "MY NUMBER IS LARGER THAN 
YOUR TRAP NUMBERS." 

140 GOTO 180 

150 PRINT "MY NUMBER 1IS SMALLER THAN 
YOUR TRAP NUMBERS,， 
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160 GOTO 180 

170 PRINT "YOU HAVE TRAPPED MY 
NUMBER." 

180 NEXT Q 

190 PRINT "SORRY，THAT'S"， G， 7GUESSES， 
NUMBER WAS" X 

200 GOTO 260 

210 R= A 

220 A=B 

230 B=R 

240 RETURN 

250 PRINT "YOU GOT ITI ! 1 7 

260 PRINT 

270 PRJINT TRY AGAIN 

280 PRINT 

290 GOTO 30 

300 END 


21。 猜 数 迹 


你 先 指 定 一 个 整数 〈L) ， 随 后 计算 机 便 产生 一 个 从 工 到 
这 个 数 之 间 的 随机 整数 来 证 你 狂 。 如 果 你 猜 的 数 不 是 计算 机 中 
已 经 产生 的 那个 数 ， 则 计算 机 会 告诉 你 是 大 了 还 是 小 了 ， 让 你 
再 狂 ， 直 到 犹 对 为 止 。 你 应 该 用 景 少 的 次 数 就 能 猜 准 它 。 根 据 
你 给 的 整数 L 的 大 小 ,计算 机 算出 一 个 数值 ( 忆 3* 1， 亚 取 其 
整数 )》， 例 如 ， 你 打 入 200， 则 225 = 7.6438, 加 1 再 取 整 ， 


9 45 ee 


为 8 。 如 果 你 用 小 于 这 个 数 的 次 数 猜 中 了 ， 计 算 机 打 印 出 

《VERY GOAD.”， 如 果 你 的 次 数 刚 好 等 于 此 数 民 则 打印 
“GOoOD”， 如 采 超 过 此 次 数 ， 则 打印 出 ， “YOU SHOULD 
HAVE BEEN ABLE TO GET IT IN ONLY8” (你 应 在 
8 次 内 猜 中 ) 。 显 然 ， 指 定 的 数 愈 大 ， 允 许 猜 的 次 数 就 愈 多 。 


工 


PRINT THIS JIS A NUMBER GUESSING 
GAME. TILELTHINKY7 

PRINT "OF A _ NUMBER BETWEEN 1 AND 
ANY LIMIT YOU WANT.I 

PRINT THEN YOU HAVE TO GUESS WHAT 
j 

PRINT "WHAT LIMIT DO YOU WANT 
INPUT 世 

PRINT 

LI1=INTILOG(CL)V/LOG(2)) +1 

PRINT "TM THINKING OF A NUMBER 
BETWEEN 1 AND ”5 工 

G=1 

PRINT "NOW YOU TRY TO GUES9 WHAT 
下 

M=INTILxRND(0O) +1) 

INPUT 

IF N>0 THEN 25 

GOSUB 70 

GOTO 1 


TEN=MCTITHEN 50 


399 


G=G+l 

IF N>>M THEN 40 

PRINT "TOO LOW. TRY A BIGGCER 
AN9SWER.Y/ 

GOTO 20 

PRINT ?TOO HIGH，TRY A SMALLER 
ANSWER.":GOTO 20 

PRINT THAT'S IT! YOU GOT IT IN Gy 
〖 工 民 TS 

IF G<LI1 THEN 58 

位 Gz=Li THEN 60 

PRINT "YOU SHOULD HAVE BEEN ABLE 
TO GET IT IN ONLY7，L1 

GOTO 65 

PRINT 7VERY7; 

PRINT GOOD .7 

GOSUB 70 

GOTO 12 

FOR H=17TO5 

PRINT:NEXT 歼 

RETURN 

END 


游戏 记录 如 下 : 
THIS TS ANUMBER GUESSING GAME. TILL 


THINK 


OF A NUMBER BETWEEN 1 AND ANY LIMIT 


YOU WANT。 
47T 。， 


THEN YOU HAVE TO GUESS WHAT 地 19。 
WHAT LIMIT DO YOU WANTY? 200 


IM THINKING OF ANUMBER BETWEEN 1 AND 


200 

NOW YOU TRY TO GUESS WHAT IT HI9， 
? 100 

TOO LOW. TRY A BIGGER ANSWER， 

? 150 

TOO HIGH. TRY A SMALLER ANSWER。 
? 112 

TOO LOW. TRY A BIGGER ANSWER， 

?了 118 

TOO LOW. TRY A BIGGER ANSWER。 

? 123 


THAT'S IT! YOU GOT IT IN 5 TRIE9。 
VERY GOOD， 


ITM THINKING OF ANUMBER PETWWPEEN1TAND 


200 
NOW YOU TRY TO GUESS WHAT IT 了 3， 
? 100 
TOO HIGH. TRY A SMALLER ANSWER。 
?3 75 
TOO HIGH. TRY A SMALLER ANSWER。 
? 55 


TOO HIGH. TRY A SMALLER ANSWER。 


48 。 


?3 45 
TOO HIGHE. TRY A SMALLER ANSWER。 


? 20 

TOO HIGH. TRY A SMALLER ANSWER。 
? 10 

TOO LOW. TRY A BIGGPRR ANSYVYER， 

? 11 

TOO LOW. TRY A BIGGER ANSVWEPRR 

? 13 

TOO LOW. TRY A BIGGER ANSWEPR， 

? 15 

TOO LOW. TRY A BIGGER ANSWER。 

? 16 

TOO LOW. TRY A BIGGER ANSYVER 
人 

TOO LOW. TRY A BIGGPER AN9SWER， 

? 19 

TOO HIGH，TRY A SMALLER ANSWER 
? 18 


THAT'S IT! YOU GOT IT IN 13 TRIE9， 
YOU SHOULD HAVE BEEN ABLE TO GET IT 
IN ONLY 8 


22。 猜 数 得 分 


计算 机 产生 一 个 1 一 100 之 间 的 晴 机 区 数 ， 用 来 表示 分 


数 ， 让 你 猜 。 可 以 因 猜 六 次 。 如 猜 对 了 ， 你 便 吝 得 这 些 分 。 再 
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鞠 一 次 ， 每 次 将 你 赢 的 分 累加 起 来 。 如 六 次 均 狂 不 到 ， 就 把 你 
原 有 的 分 数 扣 光 。 

YOUR GUESS? 50 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 25 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 12 

YOUR GUESS IS TOO HIGH 

YOUR GUESS? 6 

YOUR GUESS IS TOO HIGH 

YOUR GUESSY? 3 

YOUR GUESS IS TOO LOW 

YOUR GUESS? 4 

YOUR.TOTAL WINNINGS ARE NOW 4， 

PLAY AGAIN (YES OR NO)? YES 

YOUR GUESS? 50 

YOUR GUESS IS TOO LOW 


YOUR GUESS? 75 

YOUR GUES9S IS TOO HIGH 

YODUR GUES9? 62 

YOUR GUESS IS TOO HIGH 

YOUR GUE99S? 57 

GOT IT IIIYOU WIN 57. 

YOUR TOTAL WINNINGS ARE NOW 61， 


区 0。 


350 


360 


PLAY AGAIN (YES OR NO)? 
SO LONG。 HOPB YOU ENJOYL 
OURSLLEI ! ! 


PB=0，PRINT 

Y=JNT(CI00xRND(C0)) 

PRINT "YOUR GUES97 

JINPUT A 

B=B+l 

IF A=YTHEN 300 

IF A>Y THEN 270 

PRINT "YOUR GUESS IS TOO LOWY 
GOTO 280 

PRINT "YOUR GUESS JIS TOO HIGHY 
IF B6 THEN 200 

PRINT "YOU BLEW IT...TOO BAD..，THE 
NUMBER WAS7 Y 

R=0:， GOTO 350 

PRINT "GOT IT! !!11!1!11!1111!11!1 YOU 
WIN Y 7.7 

R=R+Y 

PRINT "YOUR TOTAL WINNINGS ARE 
NOW7 R3 .2 

PRINT :PRINT "PLAY AGAIN (YES OR 
NO)7; 

INPUT A$:IF A$=7YES" THEN 170 


5 了 -到 


380 PRINT:PRINT "SO LONG. HOPE YOU 
ENJOYED YOURSELEFI ! !1“ 
390 END 


23 ， 按 《时 ?2 数 狂 


计算 机 产生 一 个 1 一 100 之 间 的 整数 语 你 来 猎 。 如 果 你 猜 
的 数 与 此 数 相 距 其 远 ， 计 算 讯 打印 出 一 个 “* ”， 如果 比 较 接 近 ， 
风 打 外 强风 个 “*? ， 瑟 个“《* 2”， 表 示 相 当 接 近 。 星 号 愈 多 
表示 你 落 的 数 离 该 数 愈 拷 近 。 
DO YOU WANT IJNSTRUCTIONS? Y 匡 59 
TI AM THINKING OF A WROLE NUMBER 
FROM 1 TO 100 
TRY TO GUESS MY NUMBER，AFTER YOU 
GUFESS， 工 
WILL TYPR ONERE OR MORE STARS (*#* )。 工 于 也 
MORE 
5TARS 工 Y 了 马 ， THE CLOSER YOU ARE TO 
MY NUMBER， 


ONE STAR (*) MEANS FAR AWAY，SFEVEN 
STARS (闭关 沙 来 兴 关 兴 ) 


MEANS REALLY CLOSEIYOU RET 7 GUESSE9， 


OK，I AM THINKING OF A NUMBER，3S3TART 
”，GURESSING ， 

YOUR GUESS? 50 

YOUR CUE33S? 25 


涂 基 芝 洲 其 玉 洲 炒米 芝 关 炒米 洲 关 营区 洲 关 共 ! ! 


> 52 四 


YOU GOT IT IN 2 GUESSESI ! ! LET'S PLAY 
AGAIN... 
OK，[ AM THINKING OF A NUMBER，START 
GUESSING。 


YOUR GUBE9S? 50 


沙洲 风 

YOUR GUE99? 75 
沙洲 

YOUR GUE99S? 25 
沙洲 来 业 束 

YOUR GUE9S9? 15 
洲 沙洲 


YOUR GUE9S? 35 

洲 沙洲 来 兴 洲 

YOUR GUE3SS? 38 

YOUR GUESS? 33 

SORRY，THAT'S 7 GUESSES，NUMBER WAS 32 

OKE，TI AM THINKING OF A NUMBER，START 
GURESSING， 

YOUR GURESS? 50 

洲 洲 兴 

YOUR GUES9S9S? 75 

内 水 
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YOUR GUES9S? 25 

沙洲 来 玉 从 

YOUR GUESS3? 35 

洲 沙洲 来 藉 

YOUR GUE99? 30 

兴 洲 兴 沙 玉 兴 共 

YOUR GUESS? 31 

兴 兴 米 洲 兴 米 米 米 兴 米 米 洲 米 米 米 米 头头 米 半 1 1 ! 

YOU GOT IT IN 6 GUESSES! ! ! LET“ 5 
PLAY AGAIN..。. 


程序 为 : 

100 REM * xy#x STARS-PEOPLE'S COMPUTER 
CENTER 

140 REM *y*xk AIS LIMIT ON NUMBER，M 
IS NUMBER OF GUESSES 

150 A=100:M=7 

170 JINPUT "DO YOU WANT INSTRUCTIONS9S7Av 

190 IF LEFT$CA$,1) =2N7 THEN 280 

200 REM x* xy#y INSTRUCTIONS ON HOW TO 
PLAY 

210 PRINT MT AM THINKING OF A WHOLE 
NUMBER FROM 1 TO7，A 

220 PRINT "TRY TO GUESS MY NUMBER. 
AFTER YOU GUESS， 卫 

230 PRINT "WILL TYPE ONE OR MORE STARS 
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( 关 )。THE MOREY” 


350 


PRINT "STARS 1 TYPE，THE CLOSPRER YOU 
AREFE TO MY NUMDBER .7 

PRINT ONE STAR (*) MEANSFAR AWAY， 
SFEVEN STARS ( 关 水 关于 头头 共 )7 

PRINT "MEANS REALLY CLOSE! YOU 
GET7;: Mi7GUESSES.7 

REM *yx# COMPUTER THINKS OF A 
NUMBEFR 

PRINT 

PRIN 了 

X=INTIAxRND(0) +1) 

PRINT IOK, [AM THINKING OF ANUMBER， 
ST 了 ART GURESSING.7 

REM xxyxy GUESSING BEGINS，HUMAN 
BETS M GUESSES 

FOR 长 =1 TO M 

PRiINT 

PRINT 7YOUR GUE9S99?， 

INPUT G 

IFGC=X THEN 600 

D=ABSGG=-X) 

IF D>=64 了 THEN 510 

1 D>=32 THEN 500 

PP=16THEN 490 

iD>=8 了 HEN 480 

ID>=4THEN 470 

IF D>=2 THEN 460 


95， 


590 


650 
660 


PRINT “了 * 7 
PRINT “了 关 5 
了 PRINT 了 汪 7 
PRINT 二 了 关 了 
了 PRINT “了 关 7 
了 RINT“ 关 7 
PRINT 了 关 7 
PRINT 
NEXT 开 


REM x**#*ky#k DID NOTGUPESS IN M GUESSES 
PRINT 

PRINT “SORRY，THAT 32 MGUE9SSES， 

NUMBER WAS7 X 

GOTO 280 

REM *#*x*x WP HAVE A WINNER 

FOR N=1 二 O 20 

PRINT 了 关 ?5 

NEXT N 

了 PRINT 和 17 

PRINT OU GOT IT JINI KGUESSESIII 
LET' 9 PLAY AGAIN.../ 

GOTO 280 

END 


24。 得 分 和 失 分 


每 次 计算 机 产生 五 个 1 一 5 之 间 的 随机 整数 〈 每 次 的 五 个 
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数 不 同 ) 。 第 一 个 随机 整数 表示 给 你 减 5 分 ， 第 二 个 数字 表示 
加 5 分 ， 第 三 个 数字 表示 给 你 加 一 倍 分 数 ， 此 时 计算 机 将 打印 
出 “YOU HIT THE JACKPOT! ! ! ， 第 四 个 数学 表示 给 
你 加 1 分 ,第 五 个 数字 表示 减 去 你 一 半分 数 。 你 原来 有 100 分 ， 
让 你 打 入 一 个 1 一 5 之 间 的 数字 ， 若 打 入 的 数字 和 计算 机 产生 
的 第 几 个 数 相 同 ， 则 按 它 的 含义 对 你 加 或 减 分 。 当 你 的 分 数 超 
过 500 分 时 ， 你 就 胜利 ! 
譬如 ， 某 一 次 计算 机 产生 的 五 个 随机 数 是 ， 4、2、3、1、 
5， 你 打 入 的 是 “1”， 与 第 四 个 数 祖 同 ， 给 你 加 一 分 。 如 果 你 
打 入 “4 ， 则 与 第 一 个 相同 ， 应 减 去 5 分 。 
YOU HAVE 100 POINTS. BY GUESSING 
NUMBERS FROM 1 TO 5，YOU 
CAN GAIN OR LOSE POINTS DEPENDING 
UPON HOW CLOSE YOU GET TO 
A RANDOM NUMBER SELECTED BY THE 
COMPUTER . 
YOU OCCASIONALLY Wi:LL GET A JACKPOT 
WHICH WILL DOUBLE(I) 
YOUR POINT COUNT. YOU WIN WHEN YOU 
GET 500 POINTS. 
GUESS A NUMBER FROM 1 TO 5? 2 
YOU HAVE 95 POINTS . 
GUESS A NUMBER FROM 1 TO 5? 2 
YOU HAVE 90 PO NTS. 
GUESS A NUMBER FROM 1 TO 5? 2 
YOU HAVE 9%5 POINTS . 
GUESS A NUMBER FROM 1 TO 5? 2 
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YOU HAVE 9%6 POINTS. 

GUE9SS A NUMBER FROM 1 TO 5?7 2 
YOU HIT THE JACKPOTII 

YOU HAYVE 192 POINTS . 

GUESS A NUMBER FROM 1 TO 5? 3 
YOU HIT THE JACKPOTI! ! ! 

YOU HAVE 384 POINTS . 

GUESS A NUMBPER FROM 1 TO 5? 1 
YOU HAVE 389 POINTS . 

GUESS A NUMBER FROM 1 TO 5? 2 
YOU HAVE 394 POINTS. 

GUESS A NUMBER FROM 1 TO 5? 5 
YOU HIT THE JACKPOTI ! 1 
!!1!11!1YOU WNI !1!1! WITH788POINTS. 


程序 为 ， 


4 


5 


6 


7 
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PRINT "YOU HAVE 100 POINTS9. BY 
GUESSING NUMBERS FROM 1 TO 5，YOUY7 
PR NT CAN GAIN OR LOSE POINTS 
DEEPENDING UPON HOW CLOSE YOU GET 
工 D? 

PR NT "A RANDOM NUMBER SELECTED 
BY THE COMPUTER."，PRINT 

PRINT "YOU OCCASIONALLY WILL GET A 
JACKEPOT WHICH WILL DOUBLE(CID7 
PRINT YOUR POINT COUNT. YOU WIN 
WHEN YOU GET 500 POINTS./ 

PRINT: P=100 


10 
12 


15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
30 
35 
40 
45 
50 
53 
55 
60 
65 
70 
80 
82 
85 


DEF FNR(X) =INT(5x*RND(0O) +1) 


INPUT 7"GUESS A NUMBER FROM 1 TO 573 


G 

R=FNR(1) 

9S = 下 NR(1) 

工 =FNR(1) 
U=FNR(l) 
V=FNR(CL) 

IF GC=R THEN 30 
IF G=9 THEN 40 
IF G=TTHEN 50 
IF G=UTHEN 60 
IF GC=V THEN 70 
GO TO 12 

P=P-5 

GOTO 80 

P=P+5 

GOTO 80 

P=P+P 

PRINT "YOU HIT THE JACKPOTI ! 1 7 
GOTO 80 

P=P+l 

GOTO 80 
P=P-INTIP*.5) 
IF P>500 HEN 90 
PRINT "YOU HAVE" P; "POINTS.7 
GOTO 12 
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90 PRINT 7" !111!1YOU WINI! !!! WITH 
P; "POINTS9.7 
99 END 


25.。 计算 机 猜 数 


你 想 好 一 个 数 ， 将 它 加 3 ， 再 除 以 5 ， 再 乘 以 8 ， 再 除 以 
5 ， 再 加 5 ， 再 减 1 ， 然 后 将 最 终 的 结果 告诉 计算 机 ， 计 算 机 
会 猜 出 你 心中 想 的 那个 数 是 多 少 。 例 如 ， 你 打 入 12 (最 后 计 
算 的 结果 ) ， 计 算 机 猜 出 你 心中 想 的 数 是 22 并 问 你 对 不 对 。 
如 果 你 回答 对 〈“YES”) ， 此 游戏 就 结束 了 。 如 果 你 想 欺 
骗 计 算 机 ， 回 答 说 不 对 〈“NO”) ， 则 计算 机 会 问 你 ， 你 心 
中 的 数 是 多 少 ? 如 果 你 不 如 实地 告诉 计算 机 而 乱 编 一 个 数 〈 如 
32) ， 则 计算 机 会 驳斥 你 ， 并 将 此 数 (32) 加 3， 除 以 5 ， 乘 
8 ， 除 以 5 ， 加 5 减 1 来 证 明 它 并 不 等 于 12。 最 后 再 问 “ 这 
回 你 应 该 相信 我 了 吧 ? ”如 你 还 打 入 “NO” 与 计算 机 不 合作 ， 
则 计算 机 会 说 ，“ 你 激 经 我 了 ”。 
TAKE A NUMBER AND ADD 3. DIVIDE THIS 
NUMBER BY 5 AND 
MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE 
SAME. SUBTRACT 1. 
WHAT DO YOU HAVE? 12 
I BET YOUR NUMBER WAS 22 WAS I RIGHT?NO 
WHAT WAS YOUR ORIGINAL NUMBER? 32 
SO YOU THINK YOU'RE SO SMART，EH? 
NOW WATCHL， 
32 PLUS 3 EQUALS 35. THIS DIVIDED BY 5 
EQUALS 7; 


a .60 


THIS TIMES 8 EQUALS 56. IF WE DIVIDE BY 
5 AND ADD 5， 
WE GFET 16.2，WHICH，MINUS 1 EQUALS 15.2。 
NOW DO YOU BELIEVE ME? NO 
YOU HAVE MADE ME MADI ! ! 
非 井 非 利 井 间 柯 井 井 间 井 井 井 间 并 并 站 节 井 井 井 井 
TI HOPE YOU BELIEVE ME NOW，FOR YOUR 
SAKEI! ! 
程序 为 ， 
60 _ PRINT "TAKE A NUMBER AND ADD 3, 
DIVIDE TIHIS NUMBER BY 5 ANDY 
70 _ PRINT "MULTIPLY BY 8. DIVIDE BY 5 
AND ADD THE SAME. SUBTRACT 1.7 
80 PRINT WHAT DO YOU HAVE% 
90 _ INPUT B 
109 LET C=(B+1-5)x*5/8x5-3 
110 PRINT  BET YOUR NUMBER WAS "5 
Ci WAS TI RIGHT"; 
120 INPUT D$ 
130 IF D$= "YES" THEN 510 
140 PRINT "WHAT WAS YOUR ORIGINAL 
NUMBER"; 
150 INPUT KK 
155 LET FE=K+3 
160 LET G=E/5 
170 LET H=Gx8 
180 LET I=H/5+5 
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190 LET J=I-1 

200 PRINT "SO YOU THINK YOU RE SO 
SMART，EH?“ 

210 PRINT NOW WATCH.7 

230 PRINT 必 "PLUS 3 EQUALS7 上 7 ，THIS 
DIVIDED BY 5 EQUALS73G3Y SS 7 

240 PRINT 27THIS TIMES 8 EQUALS9S73 7。IF 
WE DIVIDE BY 5 AND ADD 5,/ 

250 PRINT WE GET7T7，WHICH，MIJINUS 1 
E 上 QUALS7 7 .7 

260 PRINT NOW DO YOU BELIEVE ME75; 

270 INPUT Z$ 

290 IF Z$= "YES" THEN 510 

295 PRINT "YOU HAVE MADE ME MADIII7 

450 卫 RTIN 下? 基 讶 生计 井 基 提 提 韭 并 昔 计 其 苍 划 寺 计 搓 提 音 并 攻 了 

470 PRINT "IT HOPE YOU BELIEVE ME NOW， 
FOR YOUR SAKPEII7 

480 GOTO 520 

510 PRINT "BYEIIIII7 

520 卫 ND 


26.。 猜 字 母 


计算 机 选 好 一 个 A 一 2 之 间 的 字母 来 让 你 猜 。 打 入 你 猜 
的 一 个 字母 ， 随 后 计算 机 便 告 诉 你 打 入 的 字母 与 计算 机 选 的 那 
个 字母 相 比 是 高 还 是 低 〈 以 A 为 最 低 ，2 为 最 高 ) ， 看 你 几 
次 猜 中 。 
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LETTER GUESSING GAME 

TILEL THINK OF A LETTER OF T 工 五 也 
ALPHABET，A TO 2 

TRY TO GUESS MY LETTER AND TEL 
GIVE YOU CLUES 

AS TO HOW CLOSE YOU'RE GETTING TO 
MY LETTER ， 


DO.K.， THAVEALETTER. START 
GUE99SING 
WHAT IS YOUR GUES9S? N 


TOO HGH. TRY A LOWER LETTER， 
WHAT I9 YOUR GUESS? 下 


YOU GOT IT 2 GUESSESII 


LET'S PLAY AGAIN..... 

O.K.，E HAVE A LETTER。 START 
GUESSING。. 

WHAT IS YOUR GUESS? M 

TOO HIGH. TRY A LOWER LETTER。 

WHAT 1IS YOUR GUESS? F 

TOO HIGH. TRY A LOWER LRTTER。 

WHAT 1S YOUR GUESS? C 

TWO LOW. TRY A_ HIGHER LETTER。 

WHAT JS YOUR GUESS? 已 
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10 
20 


90 

100 
110 
120 
130 
140 


64。 


TOO HIGH. TRY A LOWER LETTER。 
WHAT IS YOUR GUESS? D 
YOU GOT IT IN 5 GUESSESII 


O.K.，THAVE ALETTER. START 
GUESSING 
WHAT IS YOUR GUESS? 


PRINT "LETTER GUESSING GAMEY 

PRINT "TILEL THINK OF A LETTER OF 
THE ALPHABET，A TO 2Z.7 

PRINT "TRY TO GUESS MY LETTER AND 
TELL GIVE YOU CLUESY7 

PRINT “AS TO HOW CLOSE YOU'RE GET- 

TING TO MY LETTER.>” 

工 =65+JNTCRND(0)*26) 

G=0 

PRINT 

PRINT "0.K.，I HAVE A LETTER， 
START GUESSING.7 

PRINT 

PRINT "WHAT IS9 YOUR GUES9S0 

G=G+1l 

INPUT Apy 

A=ASC(A 和 ) 

IF A=LTHEN 180 


150 IF A<L THEN 170 

160 PRINT "TOO LOW.TRY A HIGHER 
LETTER."，GOTO 100 

170 PRINT "TOO HIGH. TRY A LOWER 
LETTER."，GOTO 100 

180 PRINT "YOU GOT IT IN GI 2GUESSESIIY 

190 IF G<= 5 THEN 220 

200 PRINT "BUT IT SHOULDN' 人 下 TAKE MORE 
THAN 5 GUESSESI!Y 

210 GOTO 230 

220 PRINT GOOD JOB 11 

230 PRINT 

240 PRINT "LET'S AGAIN....。 

250 GOTO 50 

999 END 


计算 机 产生 一 个 含 五 个 字母 的 英语 单词 来 让 你 猪 。 你 可 打 
入 五 个 字母 ， 计 算 机 会 告诉 你 ， 有 了 几 个 字母 与 该 字 中 的 字母 相 
同 ， 并 告诉 你 哪 一 个 字母 不 仅 字母 相同 而 且 位 置 也 相同 。 你 可 
以 再 打 入 另外 五 个 字母 ， 计 算 机 也 都 如 此 处 理 ， 直 到 你 猜 对 此 
字 为 止 。 你 未 猜 对 ， 而 不 朴 再 猜 了 ， 可 打 入 问号 “? ”， 计 算 
机 会 再 出 一 个 新 字 让 你 犹 。 

可 以 改变 530 和 540 语 名 来 改变 可 能 产生 的 英语 单词 。 
I AM THINKING OF A WORD 一 YOU GUESS IT。 
LI WILL GIVE YOU CLUES TO HELP YOU GET IT 


。65;。 


GOOD LUCKII -~ 


YOU ARE STARTING A NEW GAME... 

GUE5S A FIVE LETTER WORD? ABCDE 

THERE WERE 3 MATCHES AND THE COMMON 
LETTERS WERE...CAD (C，A，D 三 个 字母 相同 ) 

FROM THE EXACT LETTER MATCHES.， YOU 
并 NOW 全 克 ---D- (D 的 位 置 也 相同 ) 


GUE9S A FIVE LETTER WORD? FGHJJ 

THERE WERE 0 MATCHES AND THE COMMON 
LETTERS WERE... 

FROM THE 了 XACT LETTER MATCHES， YOU 
大 NG We ---D- 


IF YOU GIVE UP，TYPE 9 ”FOR YOUR NEXT 
GUESS. 

GUESS A FIVE LETTER WORD? LMNOP 

THERE WERE 1 MATCHES AND THE COMMON 
LETTERS UERE...N 

FROM THE EXACT LETTER MATCHES，YOU 
下 NO --ND- (CN,D 的 位 置 猫 对 ) 


IF YOU GIVE UP，TYPE 9 ”FOR YOUR NEXT 
GUES9S ， 

GUES9 A FIVE LETTER WORDY? CANDY 

THERE UERE 5 MATCHE9 AND THE COMMON 
LETTERS WERE...CANDY 

FROM THE EXACT LETTER MATCHES9.，， YOU 
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YOU HAVE GUESSED THE WORD， IT TOORKR 4 
GUESSE9! 


WANT TO PLAY AGAINY? YES9 

YOU ARE STARTING A NEW GAME..， 

GUESS A FIVE LETTER WORD? ABCDE 

THERE WERE 0 MATCHES AND THE COMMON 
LETTERS WERE... 

FROM THE 尼 XACT LETTPER MATCHES，YOU 
故人 GE 证 


IF YOU GIVE UP，TYPRE  ? ”FOR YOUR NEXT 
GUESS . 


GUESS A FIVE LETTER WORD? FGHIJ 

THRRE WPFRE 2 MATCHES AND THE COMMON 
二 ETTPRRS WERE.. .FI 

FROM THRE EXACT LETTER MATCHRS，YOU 
本 人 全 二 下 >--- 


GUE9SS A FIVE LETTER WORD? MNOPS 

THRRE WERE 1 MATCHES AND THE 
COMMON LETTERS WERE...S 

FROM THP EXACT LETTER MATCHES，YOU 
ENG 上---- 


IF YOU GIVE UP，TYPE ?9 ”FOR YOUR NEXT 
GUES9S 


GUFES9 A _ FIVE LETTER WORD? FISTS 
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THERE WERE 5 MATCHES ANDTHE COMMON 
工 ETTERS WERE...Fl95T 

FROM THE EXACT LETTER MATCHES9，YOU 
信人 证人 训 疝 训 训 二 十 语 FI--- 


GUESS A FIVE LETTER WORDY? FIRST 

THERE WERS 5 MATCHES AND TH 也 
COMMON LETTERS WERE..:FIR9ST 

FROM THE EXACT LETTER MATCHES，YOU 


YOU HAVE GUESSED THE WORD。IT TOOKR 5 
GUE9SSESI! 


WANT TO PLAY AGAIN? NO 
程序 为 ; 


5 DIM 5(7)，A(7)，L(7)，D(7)，P(7) 

10 PRINT 7" AM THINRING OF A WORD -- 
YOU GUESS 1T.7 

15 了 PRINT WILLGIVE YOU CLUES TO _ HELP 
YOU GEFET IT.7 

18 PRINT7GOOD LUCKI! ! 7， 

30 PRINT: PRINT "YOU ARE STARTING A 
NEW GAME...7 

35 有 人 芋 STORE 

40 READN 

50 C=INTCRND(O)*N+1) 

60 FOR I=1 TO C 
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70 READ S$ 

80 NEXT 1 

90 G=0 

95 S(0) =LEN(S$) 

100 FOR IT=1 TO LEN(S$): S(TD) = ASC(OMID$(S$， 
J，1))，NEEXTI 

110 FOR TI=1 TO 5 

120 A(T) =45 

130 NEXT TI 

140 FOR J=1 TO 5 

144 P(J) =0 

146 NEXT 

150 PRINT "GUFESS A FIVE LETTER WORD 

160 INPUT 工 $ 

170G=Gr+1 

172 JPF S$ -=G$ THEN 500 

173 FOR 1=1 TO 7:，PO)=0， NEXTI 

175 L(0) =LEN(L$) 

180 FOR f=1 TO LEN(GL$)，LGD=ASCCOMID 和 
(L$,T，1)):，NEXT 

190 IF LiD) =63 THEN 300 

200 IFE L(O4 725 THEN 400 

205 M=0: Q=1 

210 FOR I=1 TO 5 

220 FOR J=1 TO 5 

230 IF S(D《 >LGJ) THEN 260 

231 P(Q) = 工 (J) 
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232 QO=QT1 

233 j] 了 T 工 HPN 250 

240 人 7 二 本 

250 M=M+1 

260 NEXT 了 

265 NEXT 了 

270 A(0) = 

272 -人 (0 

275 A$ =” 4， FOR T=1TO AD)，A$=A$+CHRY$ 
(A())，NEXT 1 

277 E$=""，FOR j=1 TO P(0)，P$=PS$+CHRS$ 
(P(D)，NEXT 1 

280 PRINT THERE WERE Mi MATCHES AND 


315 
320 
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THR COMMON LETTERS WERE..." PS 
PRINT "FROM THR FEXACT LETTRR 
MATCHES，YOU KNOW..............,， "3A$ 
IF AS$=S9q THRN 500 
IF MLTHEN 289 
PRINT，PRINT 7TF YOU GIVE UP，TYPF 
FOR YOUR NEXT GURSS.Y 
PRINT 


0 GOTO 150 


S$ = ;FOR TI=1 TO7:S$=S$+CHRS$(CS(TD)， 
NEXT 1 

PRINT ?THE SECRET WORD JIS 六 S 
PRINT 

GOTO 30 

PRINT "YOU MUST GUESS A 5 LETTER 


WORD. START AGAIN.7 

410 PRINT: G=G-1:， GOTO 150 

500 PRINT "YOU HAVE GUESSED THE WORD， 
工 TOOKR7"，G3 YGUESSE9! “"，PRINT 

510 INPUT ”WANT TO PLAY AGAIN Qf$ 

520 IF Q$= "YE3” THEN 30 

530 DATA 12,， 7"DINKY7，7"SMOKE7，7"WATER7， 
“GRASS7， TRAIN7，7MIGHTY，7”FIRSTY7 

540 DATA YYCANDY"， "CHAMP7， ”7WOULDY7， 
”CLUMP7，7"DOPEYY 

999 END 


28。 对 位 猜 数 
首先 ， 计 算 机 会 显示 出 : “好 ， 我 已 经 想 好 了 一 个 三 位 
数 ， 请 你 犹 吧 ”! (0.K. [THAVE A NUMBER IN MIND， 
TRY TO GUESS.) 这 是 一 个 三 位 随 锅 整数 ， 但 在 这 三 位 数 
中 不 能 有 两 个 数字 是 相同 的 。 你 最 多 可 以 猜 20 次 。 每 猜 完 一 
党， 计算 机 会 告诉 你 如 下 的 线索 : 
PICO: 表示 猜 对 了 一 位 ， 但 位 置 不 对 。 
FERMI: 表示 猪 对 了 一 位 ， 而 且 位 置 也 对 。 
BAGELS: 表示 没有 一 位 猜 对 。 
你 能 以 最 少 的 次 获 东 到 这 个 三 位 数 吗 ? 如 果 你 的 方法 巧妙 
得 当 ， 用 不 到 八 次 就 能 钞 中 。 
WOULD YOU LIKE THE RULES (YES OR NO)? 
YES 
I AM THINKING OF A THREE-DIGIT NUMBER, 
TRY TO GUESS 
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MY NUMBER AND TI WILL GIVE YOU CLUES 
AS FOLLOW39， 
PICO -ONE DIGIT CORRECT BUT IN THE 
WRONG POSITION 
FERAE -ONE DIGIT CORRECT AND IN THE 
R.GHT POSITION 
BAGELS -NO DIGITS CORREE 工 
O.K. [HAVE ANUMBER IN MIND， 


GUE9S9S # 工 . ? 123 
FERMI 

GUESS # 2 ? 724 
PICO FERMI 

GUES9S +# 3 ? 827 
FERMI FERMI 

GUESS # 4 ? 927 
FERMIT FERMI 

GUESS # 5 ? 627 
YOU GOT ITI ! ! 


PLAY AGAIN (YE9 OR NO)? YES9 
O.K. [THAVE A _ NUMBER IN MIND， 


GUESS # 1 ? 987 
BAGELS 

GUESS # 2 ? 654 
PICO 

GUESS # 3 1Y 236 
PICO PICO 

GUESS # 4 ”613 


ee T2 。 


PICO 


GUESS # 5 ? 327 
FERMI FERMI 
GUESS +# 6 ? 328 
上 上 RMIL FERMI 
GUES9S # 7 7 329 
上 上 世 RMIL FERNMI 
GUESS # 8 ?7 325 


YOU GOT ITI 1! 1: 
PLAY AGAIN (YES OR NO)? YES 


DO.KE. THAVF AMUMBER IN MIND. 


GUESS +# 1 ? 456 
PICO 

GUESS 业 2 > 1123 
FERMI 

GUESS +# 3 ? 167 


YOU GOT IT 1 
PLAY AGAIN (YES OR NO)? YPRS 


O.KE. [THAVP ANUMDER IN MIND， 


GUESS # 1 ? 159 
BAGELS 

GUESS +# 2 2 247 
下 寺 避 

GUESS # 3 ? 3283 
BAGEELS 

GUESS +# 4 ? 476 
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PICO FERMI 


GUESS # 5 ? 407 
PICO FERMI 

GUESS # 6 ? 740 
PICO FERMI 

GUESS # 7 ? 704 
PICO PICO 

GUESS # 8 ? 406 
PICO PICO FERMI 
GUESS # 9 ? 604 
PICO PICO PICO 
GUESS # 10 ? 460 
YOU GOT IT ! 1! 


PLAY AGAIN (YES OR NO)7 NO 


A 4 POINT BAGELS BUFFI ! 
HOPE YOU HAD FUII，、BYE， 

10 DIM Al(6)，A(3)，B(3) 

30 Y=0: T=255 

70 INPUT "WOULD YOU LIKE THE RULES 
(YES OR NO)"， Ag 

90 IF LEFT$CA$，1) = 7"N THEN 150 

100 PRINT，PRINT "LI AM THINKING OF 和 A 
THREE-DIGIT NUMBER. TRY TO _GUESSY 

110 PRINT "MY NUMBER AND TI WILL GIVE YOU 
CLUES AS FOLLOWS: ，" 

120 PRINT " PICO -ONE DIGIT CORRECT BUT 
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IN THE WRONG POSITIONY 


PRINT ”FERMI -ONE DIGIT CORRECT AND 
IN THE RTGHT POSITIONY 


PRINT ” BAGELS -NO DIGITS CORRECT 
FOR I=1TO 3 

A(D) =INT(I0x*RND(0)) 

IF I-1=0THEN 200 

FOR J=1 TO TI-1 


IEAGD=AG) THEN 160 

NEXT J 

NEXT 

PRJNT: PRINT "0.K. 工 HAVE A NUMBER 


IN MIND." 
FOR I=1 TO 20 
PRINT 7GUESS # 总 T， 
INPUT Af$ 
IE LEN(A$)% >3 THEN 630 
FOR Z=1 TO 3:， Al1(Z) =ASC(MID$(CA$，2Z， 
1))，NEXT Z 
FOR J=1 TO 3 
IFE Al1(J)《48 THEN 300 
IF Al1(J)>57 THEN 300 
B(J)= Al(J) -48 
NEXT 可 
GOTO 320 
PRINT WHAT? 
GOTO 230 
IF B(1) =B(2) THEN 650 
se 5 。 


330 IF B(2)=B(3) THEN 650 
340 IF B(3) =B(GI) THEN 650 
350 < 0D=0 

360 FOR J=1 TO 2 

370 IF A(J) >BGJ+1) THEN 390 
380 CC= 忆 di 

390 IF A(GJ+1l) >B(J) THEN 410 
400 C=C+L 

410 NEXT 可 

420 JE AGD)《 >B(3) THEN 440 
430 C=C+1l 

440 IF A(3)《 >B(G) THEN 460 
450 人 = 人 二 1 

460 FOR J=1 TO 3 

470 J]F A(C)< >BG) THEN 499 
480 D=D+l 

490 NEXT jJ 

500 IF D=3 了 THEN 680 

505 IF C=0 THEN 545 

520 FEOR J=1 TO C 

540 PRINT "PICO7; 

540 NEXT J 

545 IF D=0 THEN 580 

550 FOR J=1 TO D 

560 PRIJNT ?FERMIT 4 

570 NEXT 可 

580 IF C+D4 >0 THEN 600 


590 PRINT "BAGEL397; 

600 PRINT 

605 NEXT 1 

610 PRINT ?OH WEELLY 

615 PRINT 2?THAT'S TWENTY GUESSES. MY 
NUMBER WAS2 100x*A(1) +105A(2)+A(3) 

620 GOTO 700 

630 PRINT TRY GUESSING A THREE-DIGIT 
NUMBER.”，GOTO 230 

650 PRINT ?OH，I FORGOT TELL YOU THAT 
THE NUMBER [HAVEVOIN MINDY 

660 PRINT HAS NOTWO DIGITS THE SAME.7 

670 GOTO 230 

680 PRINT "YOU GOT IT! ! ! 7，PRINT 

690 Y=Y+1l 

700 INPUT "PLAY AGAIN (YE9S OR NO)7 Af$ 

620 ]F A$= ”YES THBEN 150 

730 1F Y=0 THEN 750 

740 PRINT:，PRINT 7A Y "POINT BAGELS 
BUFEFI ! 

750 PRINT 7HOPR YOU HAD FUM，BYE.7 

999 上 END 


29。 猜 一 组 数 


你 随便 选 三 十 个 数 〈 它 们 是 0、1 或 2) 任意 排列 ， 分 成 
三 组 〈 每 十 个 一 组 ) 。 第 一 次 将 十 个 数 〈 第 一 批 ) 输入 给 计算 
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机 ， 由 计算 机 猜 。 计 算 机 猜 十 个 数 ， 依 次 与 你 的 十 个 数 比 较 ， 
看 猜 对 多 少 ? 计算 机 会 将 结果 〈 对 或 错 ) 打印 出 来 ， 并 统计 对 
的 次 数 。 接 着 猜 第 二 组 数 ， 第 三 组 数 。 

如 果 “ 运 气 ” 好 的 话 , 计 算 机 会 猜 对 1/3 以 上 。 猜 对 1V3 
的 话 计算 机 就 “胜利 ”了 。 

TEN NUMBER9，PLEASE? 1,0,2,1,1,0,1,1,2,2 


(你 打 入 十 个 数 ) 
MY GUES9 YOUR NO. RESULT NO.RIGHT 
(我 猜 ) 〈 你 的 数 ) (结果 ) (对 的 次 数 ) 

0 1 WRONG 0 

0 0 RIGHT 1 

二 2 WRONG 1 

0 1 WROHG 1 

1 1 RIGHT 2 

1 0 WRONG 2 

0 1 WRONG 2 

1 1 RIGHT 3 

0 2 WRONG 3 

0 2 WRONG 3 


TEN NUMBERS，PLEASE? 2,0,2,0,1,1,2,0,0，,0 


MY GUESS YOUR NO.RESULT NO. RIGHT 


2 2 RIGHT 4 
2 0 WRONG 4 
2 2 RIGHT 5 
0 0 RIGHT 6 
1 1 RIGHT 7 
工 1 RIGHT 8 
2 2 RIGHT 9 
2 0 WRONG 9 
2 0 WRONG 9 
2 0 WRONG 9 
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TEN NUMBERS，PLEASE? 0,1,0,2,0;,0,0,2,1;1 


MY GUES9 YOUR NO. RESULT NO.RIGHGT 


2 0 WRONG 9 

2 1 WRONG 9 

2 0 WRONG 9 

2 2 RIGHT 10 
0 0 RIGHT 11 
1 0 WRONG 11 
1 0 WRONG 11 
| 2 WRONG 11 
1 了 RIGHT 12 
1 1 RIGHT 13 


TIGUESSED MORE THAN1/3 OF YOUR NUMBERS。 
TI WIN. 


DO YOU WAMT TO TRY AGAINCGI FOR YES， 0 
FOR NO)? 1 


TEN NUMBERS，PLEASE? 0,0,0,0;0;0,1;:f,1)1 


MY GUESS YOUR NO RESULT NO，RIGHGT 


RIGHT 

WRONG 
WRON 
WRON 
WRON 
WRON 
WRON 
WRON 
WRON 
WRON 


TEN NUMBERS， PELEA9r2 2,2,2,1;,1,1,1,1,1 ,1 


站 己 富 已 所 所 己 


I 
工 
工 
工 
工 
工 
工 
工 
1 
工 


ko 避 I 忆 让 bi 忆 呈 


IOIOITOIOITIET 
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MY GUESS YOUR NO. RESULT 


R_ G 呈 | 


六 尼 己 王 忆 靖 靖 王 
二 一 二 一 亚 和 okokNo 


WRONG 
WRONCG 
WRONG 
WRONG 


WRONG 
WRONG 
WRONGr 
WRONG 
RIGHT 


NO. RIGHA 


1 
1 
1 
1 
2 
2 
2 
2 
2 
3 


TEN NUMBERS，PLEASE? 0,2,0,2,1,0,1,0,1，,1 


MY GUESS YOUR NO. RESULT NO.RIGHT 


2 0 WRONG 
0 2 WRONG 
2 0 WRONG 
2 用 RIGHT 

2 WRONG 
1 0 WRONG 
0 1 WRONG 
1 0 WRONG 
0 1 WRONG 
1 工 R.GHITI 


3 
3 
3 
4 
4 
4 
4 
4 
4 
5 


I GUESSED LESS THAN 1/3 OF YOUR 


NUMBERS . 


YOU BEAT ME. CONGRATULATIOY32 


DO YOU WANT TO TRY AGAN (1 FOR YES， 


0FOR NO)? 0 


THANKS FOR TH SAME， 
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READ A，B，C 
DATA 0，1，3 
DIM M(26，2)，K(2，2)，L(8，2) 
FOR IT=0 TO 26， FOR J=0 TO 2;,M(L, J) = 1， 
NEXT J， NEXT 1 
FOR T=0 TO 2，FOR J=0 TO 2:， KGODJ) = 9， 
NEXT J，NEXT 1 
FOR {=0 TO 8，FOR J=0 TO 2，L(LJ) = 3， 
NEXT J，NEXT i 
L(0，0) =2: L(4，1) =2: L(8，2)=2 
=26:， 2Z1=8:， Z2=2 
X=0 
FOR T=1TO 3 
PRINT 
PRINT TEN NUMBERS，PLEASEI; 
INPUT NG1D)，N(2)，N(3)，N(4)，N(5)，N(6)， 
N(7)，N(8)，N(9)，N(10) 
FOR I=1 TO 10 
W=NCOD)-1 
IF WW=SGN(CW) THEN 620 
PRINT "ONLY USE THE DIGITS “0， 少 ，OR 
“2 .7 
PRINT "LET'S TRY AGAIN."，GOTO 530 
NEXT I 
PRINT，PRINT "MY GUESS" ,YOUR NO."， 
RESULT"，"NO. RIGHT"，PRINT 
FOR U=1 TO 10 
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670 N=N(CU)，S=0 

690 FOR J=0 TO 2 

700 S1=Ax*K(Z2，J)+BxsL(Z1，J) +CsM(Z，J) 
710 IF S>S1 THEN 760 

720 IF SS1 THEN 740 
730,IFE RND(0).5 THEN 760 
740 S=S1，G= 可 

760 NEXT 可 

770 PRINT G，N(CU)， 

780 IF G=NIU) THEN 810 
790 PRINT 7WRONG"， 又 
800 GOTO 880 

810 X=X+1 

820 PRINT "RIGHTY，X 
830 M(Z，N)=M(Z，N)+1I 
840 L(Z1，N) =L(Z1，N)+1I 
850 开 (Z2，N) = 开 (Z2，N) +1 
860 Z=Z-INT(Z/9)*9 

870 Z=3x*Z+NCU) 

880 Z1=Z-INT(Z/9)*9 

890 Z2 =N(U) 

900 NEXT TU 

910 NEXT 工 

920 PRINT 

930 IE X>10 THEN 980 
940 IF X<10 THEN 1010 


950 PRINT "I GUESSED EXACTLY 1/3 ON YOUR 
ee 82。 


NUMBERS .7 
960 PRINT IT JIS A TIE GAME 
970 GOTO 1030 


980 PRINT 7I GUESSED MORE THAN 1/3 OF 
YOUR NUMBERS.7 
990 PRINT ZI WIN.7 
1000 GOTO 1030 
1010 PRINT "TIGUESSEDLESSTHANIVX3 OF YOUR 
NUMBERS.7 
1020 PRINT "YOU BEAT ME. 
CONGRATULATIONSeeeee7 
1030 PRINT 
1040 PRINT "DO YOU WANT TO TRY AGAIN (1 
FEOR YES，0 FOR NO)7; 
1060 INPUT 式 
1070 IF 又 =1 THEN 400 
1080 PRINT:，PRINT "THANKS FOR THE GANE.7 
1090 END 


30。 智 击 潜艇 


现在 你 是 一 名 驱逐 舰 的 舰 长 ， 发 现 了 一 般 敌 方 潜水 艇 ， 并 
受命 去 击 沉 它 。 假 设 已 知 敌 潜艇 在 一 定 的 范围 内 ， 计 算 机 显示 
出 “DIMENSION OF SEARCH AREA? ”要求 指 定 搜索 
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区 域 。 你 打 和 人 一 个 获 ， 例 如 50， 表 示 潜 族 在 你 以 东 50 米 、 北 
50 米 、 深 50 米 的 立方 体 范围 内 。 随 后 计算 机 人 告诉 你 可 以 
打 几 发 深水 炸弹 〈 搜 索 区 成 大 , 给 定 的 炸弹 就 多 。 炸 弹 
数 N 是 由 ln G/ln2 +1 计算 出 来 的 ，G 是 上 述 立 方 体 的 边 
长 ， 现 为 5, 则 N= 下 2 +1=6.64, 给 6 发 炸弹 如果 G= 


jn10 加 了 
10, 则 N= 站 +1=4.32， 给 4 发 炸弹 ) 。 每 打 一 发 炸弹 ， 


要 向 计算 机 打 入 三 个 数 ， 分 别 表 示 东 、 北 和 深度 。 例 如 打 入 
25，25，25， 是 表示 和 欲 射 击 的 目标 定 为 离 驱 逐 舰 以 东 25 米 ， 
以 北 25 米 ， 深 25 米 。 如 打 中 ， 计 算 机 显示 出 “BOOM? 
〈 击 中 》 ， 并 告诉 你 是 几 次 击 中 的。 例如 “YOW FOUND 
IT IN 3 TRIES”( 你 是 第 三 次 击 中 的 )， 如 未 击 中 ， 计 算 机 
将 向 你 指出 射击 偏差 ,例如 “SONAR REPORTS SHOT 
WAS SOUTHEAST AND TOO LOW” ( 声 纳 报告 炸弹 
落 在 潜艇 东南 方太 深 )。 你 可 以 根据 报告 调整 射击 参数 。 如 果 
你 打 完 所 有 的 炸弹 而 未 能 击 沉 潜 艇 ,计算 机 则 将 指出 : 
“YOU HAVE BEEN TORPEDOED ABANDON SHIP?” 
〈 你 已 被 鱼雷 击 中 ， 速 弃 舰 )， 并 告诉 你 潜艇 在 什么 地 方 。 
最 后 计算 机 将 问 你 ， “要 不 要 再 玩 一 次 ”? 如 果 你 想 再 玩 ， 
可 以 打 入 “Y” (表示 YES) ， 和 否则 打 入 “N” (表示 NO.) 


游戏 的 一 次 记录 为 
DIMENSION OF SEARCH AREA? 50 


YOU ARE THE CAPTAIN OF THE DESTROYER 
COMPUTER 

AN ENEMY SUB HAS BEEN CAUSING YOU 
TROUBLE. YOUR 
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MISSION IS TO DESTROY IT. YOU HAVE 
6 SHOTS3 . 

SPECIFY DLPTIH CHARGE EXPLOSION POINT 
WITH A 

TRIO OF NUMBERS -一 THE FIRST TWO ARE 
工 王 匡 

SURFACE COORDINATES:， THE THIRD IS THE 
DRPTHL. 


GOOD LUCKI! 


TRIAL # 1 ? 25，25，25 
SONAR REPORTS SHOT WAS SOUTHEAST 
AND TOO LOW 


TRIAL #+ 2? 12，35，12 
SONAR REPORTS SHOT WAS SOUTHWEST 
AND TOO LOW . 


TRIAL # 3? 18，43，5 
SONAR REPORTS SHOT WAS NORTHEAST 
AND TOO HGH 


TRIAL *+ “? 15，390，8 
SONAR REPORTS SHOT WAS EAST AND 
TOO LOW . 


TRIAL # 5? 14，39，6 
BOOMI! YOUEFOUNDITIN 5TRIESI 
ANOTHER GAME (Y OR N)? T 
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OKR.。 再 OPE YOU ENJOYED YOURSELEF， 


程序 为 


20 


30 
40 


50 


60 


70 


80 


90 


100 
110 


120 


130 


140 
ae 86 。 


JNPUT "DIMENSION OF SEARCH AREAY 
G:，PRINT 

N=INTILOG(G)VLOG(2))+1I 

PRINT "YOU ARE THE CAPTAIN CF THE 
DESTROYER COMPUTERY 

PRINT7YANENEMY SUB HAS BEEN CAUSING 

YOU TROUBLE. YOURY 

PRINT ”MISSION IS TO DESTROY IT.YOU 

甩 AVE7" Ny SHOTS.7 

PRINT "SPECIFY DEPTH CHARGE 

开 XPLOSION POINT WITH A7 

PRINT 7"TRIO OF NUMBERS 一 THE FIRST 

TWO ARE THEY7 

PRINT ”SURFACE COORDINATES; 工 王 卫 

THIRD IS THE DEPTH.Y 

PRINT :PRINT "GOOD LUCKE !“ 

A=INTCGRND(0O)) : B=INTCGSRND(0)): 

C=INTCOGsRND(0)) 

FOR D=1 TON :， PRINT ，PRINT "TRIAL 

#"3 TD; :， INPUT X，Y，2 

IF ABSGCX-A)+ABSCY-B)+ABSGZ=-C)=0 

THEN 300 

GOSUB 500 ， PRINT : NEXT D 


200 PRINT，PRINT "YOU HAVE BEEN 
TORPEDOED! ABANDON SHIP! " 

210 PRINT THE SUBMARINE WAS AT"， Ai 
"，1 Bi "0 C ，GOTO 400 

300 PRINT ，PRINT "B O O MI ! YOU FOUND 
IT IN DTRIESI 

400 PRINT ，PRINT，INPUT "ANOTHER GAME 
(Y OR N)" Ag 

410 IF A$=7YY" THEN 100 

420 PRINT "OK. HOPE YOU ENJOYED 
YOURSELF." ，GOTO 600 

500 PRINT "SONAR REPORTS SHOT WAS 几 

510 JRF Y>B THEN PRINT _ "NORTH 


520 IF YCB THEN PRINT ”SOUTH75 

530 IF X>A THEN PRINT “下 AST”; 

540 IF XLA THEN PRINT "WEST7; 

550 IF Y4 >B OR XC >A THEN PRINT ”ANDY7; 
560 IF Z2C THEN PRINT ”TOO LOW.7 

570 IF ZC THEN PRINT ”TOO HGH.7 

580 J]F Z=C THEN PRINT ”DEPTH OK .7 

590 RETURN 

600 END 


31。 猜 色 棒 比 赛 


有 不 同 颜色 的 木 棒 〈 颜 色 可 分 别 为 黑 、 白 、 红 、 绿 、 橙 、 
。87 . 


黄 、 紫 、 褐 ， 最 多 八 种 颜色 ， 但 可 以 少 于 八 种 ) 。 由 你 指定 木 
棒 数 和 最 多 由 儿 种 颜色 组 成 ， 计 算 机 随机 地 将 它们 从 左 向 右 排 
列 好 。 璧 如 ,如 果 有 四 根 棒 , 闫 色 不 超过 四 种 ， 则 共有 44= 256 
种 排列 的 方案 。 如 ， 

绿 一 红 一 白 一 黑 

红 一 红 一 白 一 绿 

红 一 白 一 红 一 绿 


计算 机 选 定 一 种 排列 以 后 让 你 猜 ， 请 按 顺 序 打 入 四 个 颜 
色 。 颜 色 以 字母 来 代表 : 


D 


黑 B (Black) 
白 W (White) 
红 R (Red) 
绿 G (Green) 
杰 O (Orange) 
黄 Y (Yellow) 
紫 PP (Purple) 
褐 开 (Tan) 


如 果 你 猜 的 位 置 和 颜色 都 对 ， 则 给 你 一 个 “黑子 ”， 如 猜 
的 闸 色 对 而 位 置 不 对 ， 则 给 你 一 个 “ 白 子 ”。 璧 如 :计算 机 选 
的 是 : 红 一 白 一 红 一 绿 ， 而 你 猜 的 是 ， 白 一 白 一 红 一 红 。 第 
二 、 三 两 个 位 置 猜 对 了 ， 得 二 黑子 ,第 四 个 位 置 猜 的 是 “ 红 ”， 
不 对 ， 但 计算 机 选 的 方案 中 第 一 位 置 是 “ 红 ”， 即 颜色 对 而 位 
置 不 对 ， 得 一 白 子 。 一 次 次 猜 ， 直 到 猜 中 为 止 。 同 时 计算 机 统 
计 出 你 共 猜 了 几 次 才 猜 中 。 以 后 你 心中 想 好 一 种 方案 ， 让 计算 
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机 猜 。 在 它 打 印 出 “HIT RETNRN WHEN READY?" 
时 ， 按 “ 回 车 ” 键 。 计 算 机 猜 四 个 色 ， 问 你 可 得 黑子 、 白 子 多 
少 ? 你 应 如 实 回答 〈 如 :0，1 表示 零 个 黑子 ， 一 个 白 子 ) 。 
随后 计算 机 再 猜 …， 直 到 猜 对 为 止 。 此 时 打印 出 计算 机 猜 几 次 
才 猜 对 ， 并 统计 出 它 和 你 的 比分 。 

第 一 次 游戏 记录 

NUMBER OF COLORS? 4 (颜色 数 ; 

NUMBER OF POSITIONS? 4 〈 木 棒 数 ) 

NUMBER OF ROUNDS? 1 (游戏 局 数 ) 

TOTAL POSSIBILITIES = 256 〈 可 能 的 方案 ) 


COLOR 下 下 所 民 
BLACK 了 B 
WHITE W 
有 于 D 及 
GREEN G 


ROUND NUMBER 1---- 


GUE9S9S MY COMBINATION. 

MOVE # 1 GUES9S? BWWG 

YOU HAVE 2 BLACKS AND 0 WHITES. 
MOVE +#+ 2 GUESS9 ? WWRR 

YOU HAVE 2 BLACKS AND 1 WHITES， 
MOVE +#+ 3GURESS ? WWRG 

YOU HAVE 3 BLACKS AND 0 WHITES. 
MOVE + 4GUESS ? WWBR 

YOU HAVE 1 BLACKS AND 1 WHITES. 
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MOVE + 5 GUESS ? RWRCG 


YOU GUES9SED 
SCORE， 


IT IN 5 MOVE9SI 


COMPUTER 0 


HUMAN 
NOW 1 GUE393. 


5 
THINK OF A CCMI3INATION. 


HIT RETURN WHEN READY ? 


MY GUES9 19， 
MY GUE99 19， 
MY GUESS IT9， 
MY GUESS TI9: 


RRGR BLACKS3，WHITE9S ? 0,1 
GBBB BLACKS，WHITE9 ? 3，,0 
GWBB BLACKS，WHITES ? 3,0 
GGBB BLACKES3，WHITE9S ? 4,0 


IGOT IT IN 4 MOYVYE9I 


DCORE: 


COMPUTER 4 


HUMAN 
GAME OVER. 
FINAL SCORE; 


5 


COMPUTER 4 


HUMAN 


第 二 次 游戏 记录 ; 


5 


NUMBER OF COLORS? 5 
NUMBER OF POSITIONS9? 。 
NUMBER OF ROUNDS? 1 
TOTAL POSSIBILITE3S =625 
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COLOR 工 尼 工 TER 


BLACK B 
WHITE W 
RED 及 
GREEN G 
ORANGE O 


ROUND NUMBER 1 ---- 
GUES9S9 MY COMBINATION ， 
MOVE # 1GUESS? BWBW 
YOU HAVE 1 BLACKS AND 2 WHITE9 
MOVE +#+ 2GUE99? BBWO 
YOU HAVE 3 BLACKS AND 0 WHITE9 
MOVE #+ 3 GUE9S? BBWG 
YOU HAVE 3 BLACKS AND 0 WHITES. 
MOVE #+ 4 GUES9? BBWR 
YOU HAVE 3 BLACKS AND 0 WHITES9， 
MOVE +#+ 5 GUPE99? BBWB 
YOU CUE9SSED IT IN 5 MOVES， 
SCORE， 

COMPUTER 0 

HUMAN 5 
NOW 1 GUE9S3. THINK OF A COMBINATITION. 
HIT RETURN WHEN READY? 
MY GUES9S 19， BRRO BLACK5S，WHITES? 1,1 
MY GUES9S JI19，RRWG BLACKS，WHITES? 1,1 
MY CUE9S9 ]93，GBRC BLACK9，WHITES? 0,2 


e。 9091 。 


MY GUES9S IS9，ROGO BLACKS，WHITE9? 4,0 
IGOT IT IN 4 MOVE91! 


SCORE， 
COMPUTER 14 
HUMAN 5 
GAME OVER 
FINAL SCORE， 
COMPUTER 14 
HUMAN 5 
程序 如 下 : 


10 INPUT NUMBER OF COLORS7; C9 
20 IF C9>8 THEN PRINT "NO MORE THAN 8， 
PLEASE! “:GOTO 10 


100 INPUT NUMBER OF POSITIONSY7; P9 

110 INPUT NUMBER OF ROUNDS7 R9 

120 P= C9 个 P9 

130 PRINT "TOTAL POSSIBILITIES = 2 P 

140 H=0:， C=0 

150 DIM Q(P9)，S(10，2)，S$(10)，A$(P9)， 
G$CP9)，IGP)，H$(P9) 

160 L$= 2"BWRGOYPTY 


170 PRINT 
190 PRINT COLOR LETTERY 
200 PRINT "===== = 一 = 一 c/ 
210 FOR X=1 TO cC9 

220 READ X$ 


230 PRINT X$，TAB(13)，MID$(L$，X，1) 
240 NEXT X 
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250 


350 


370 


420 


PRINT 
FOR R=1 TO R9 

PRINT 

PRINT "ROUND NUMBER "和 Ri ----7 
PRINT 

PRINT "GUESS MY COMBINATION." 

REM GET A COMBINATION 
A=INT(PsRND(0) +1) 

GOSUB 3000 

FOR X=1 TO A 

GOSUB 3500 

NEXT X 

FOR M=1TO 10 

PRINT "MOVE # 0 Mi " GUESS % ，INPUT 
X$ 

IF X$= "BOARD" THEN 2000 

IF X$= "QUIT" THEN 2500 

JF LEN(CX$)《 >P9 THEN PRINT "BAD 
NUMBER OF POSITIONS."， GOTO 380 

REM UNPACK X$ INTO G$(dL-P9) 

FOR X=1 TO P9 

FOR Y=1 TO cC9 

IF MID$CX$，X，1) = MID$LS，Y，1) THEN 
480 

NEXT Y 

PRINT "和 MID$CX$，X，1)， 交 TIS 
UNRECOGNIZED."，GOTO 380 
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480 
490 
500 


520 


530 


550 


626 


94 。 


G$(X) = MID$CX$，X，1) 
NEXT X 
REM NOW WE CONVERT Qi - P9) 


INTO A$(1-P9) [ACTUAL GUE3SS] 
GOSUB 4000 


REM AND GET NUMBER OF BLACKR5 
AND WHITE9S 


GOSUB 4500 
IF B=P9 THEN 630 
有 人 了 上 M TELL HUMAN RESULTS 


PRINT "YOU HAVE "5 By ”BLACKS AND 
"3 Wi ”WHITES.7 


REM SAVE ALL THIS STUFF FOR 
BOARD PRINTOUT LATER 


S$(M) = X$ 

SC(CM，1) = B 

S(M，2) = 驻 

NEXT M 

PRINT "YOU RAN OUT OF MOVES! THAT'S 
ALL YOU GETI "，GOTO 640 

GOSUB 4000 

PRINT "THE ACTUAL COMBINATION 
WAS:' 

FOR X=1 TO P9 

PRINT A$CX)， 

NEXT X 

PRINT 

PRINT "YOU GUESSED IT IN 和 NM 


”MOVES! 

H=H+M 

GOSUB 5000 

REM， 

REM NOW COMPUTER GUESSES 
REM 

FOR X=1 TOP 

I(X) =1I 

NEXT XX 

PRINT "NOW TI GUESS9. THINK OF A 
COMBINATION." 

INPUT "HIT RETURN WHEN READY " X$ 
FOR M=1 TO 10 

GOSUB 3000 

REM FIND A GUESS 
G=INTCP=:RND(0) +1) 

IF ICG)=1THEN 890 


0 FOR 入 =GTOP 


IE ICX)=1 THEN 880 

NE 正 XT X 

FOR X=1 TO G 

IF ICX)=1 THEN 880 

NEXT 又 

PRINT "YOU DUMMY，YOU HAVE GIVEN 
ME INCONSISTENT INFEORMATION .7 
PRINT "LETS TRY AGAIN,AND THIJS 
TIME，BE MORE CAREEFUL.7 
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990 
1000 
1010 
1020 
1030 
1035 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


1110 
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GOTO 660 

全 广 

REM NOW WE CONVERT GUESS 4#G 
INTO G$ 

FOR X=1TOG 

GOSUB 3500 

NEXT X 

GOSUB 6000 

PRINT "MY GUESS IS，0 

FOR X=1 TO P9 

PRINT H$(CX)， 

NEXT X 

INPUT " BLACKS，WHITES " BI1，W1 
IF B1=P9 THEN 1120 

GOSUB 3000 

FOR X=1 TOP 

GOSUB 3500 

IF ICGX) =0 THEN 1070 

GOSUB 6500 

GOSUB 4000 

GOSUB 4500 

IF BIC >B OR WIC >W THEN ICGX) =0 
NEXT X 

NEXT M 

PRINT " I USED UP ALL MY MOVES! ， 


PRINT "1 GUESS MY CPU JS JUST HAVING 
AN OFF DAY." 
GOTO 1130 


1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
2010 
2025 
2030 
2040 


2050 
2060 


2070 
2075 
2080 
2500 
2510 
2530 


2535 
2540 
2550 
2560 


PRINT 吕 GOT IT IN 0 M， "MOVESI ，" 
C=C+M 

GOSUB 5000 

NEXT R 

PRINT "GAME OVERy 

PRINT ”FINAL SCORE，， 

GOSUB 5040 

STOP 

REM BOARD PRINTOUT ROUTINE 
PRINT 

PRINT "BOARD" 

PRINT "MOVE";TAB(9);" GUESS "TAB(25); 
"BLACK "wwTAB(35);” WHITE" 

FOR Z-=1 TO M-1 

PRINT Z， TAB(9)，S$(Z)， TAB(25);，S(Z,1); 
TAB(35);，S(Z,2) 

NEXT Z 

PRINT 

GOTO 380 

REM 

REM QUIT ROUTINE 

PRINT "QUITTERI MY COMBINATION WAS， 


1 。 


GO9SUB 4000 
FOR X=1 TO P9 
PRINT A$Cx)， 
NEXT X 
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2565 PRINT 

2570 PRINT ”GOOD BYEY 

2580 STOP 

3010 REM INITIALIZE Q(1-P9) TO ZEROS 
3030 FOR S=1 TO P9 

3040 Q(95) =0 

3050 NEXT S 

3060 RETURN 


3510 REM INCREMENT Q(1 一 P9) 

3522 IF Q(1)20 THEN 3530 

3524 REM IF ZERO，THIS IS OUR FIRST 
INCREMENT:，MAKE ALL ONES 

3526 FOR S=1 TO P9 

3527 Q(95) =1 

3528 NEXT S 

3529 RETURN 

3530 Q-=1 

3540 QCQ) = QQ) +1 

3550 JF Q(Q)《= C9 THEN RETURN 

3560 QCQ) =1 

3570 Q=Q+l 

3580 GOTO 3540 

4010 RFM CONVERT QGL-P9) TO A$(L-P9) 


FOR S=1 TO P9 

A$(S) =MID$(L$，Q(S)，1) 

NEXT S 

RETURN 

REM GET NUMBER OF BLACKS (B) 
AND WHITES (W) 

REM MASHES G$ AND A$ IN THE 
PROCESS 

B=0，W=0: FF=0 

FOR S=1 TO P9 

IF G$(S)( >A$(S) THEN 4620 

B=B+l 

G$(S) = CHRS$CF) 

A$(S) =CHRSCF+1) 

上 =F+2 

GOTO 4660 

FOR 人 T=1 TO P9 

IF G$(S) >A$CT) THEN 4650 

IF G$CT) = A$CT) THEN 4650 
W=W+1，A$CT)=CHRS$CF)，G$(S) = CHRY 
(+1): 了 上 = 下 +2，GOTO 4660 
NEXT 工 

NEXT S 

RETURN 
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5010 了 叱 M PEINT SCORE 
5030 PRINT ?SCOR 蕊 ，? 


5040 PR NT “ COMPUTER ”，C 
5050 PRINT 7 HUMAN | 
5060 PRINT 


5070 RETURN 

5510 REM CONVERT QG-P9) INTO G$G -P9) 

5530 FOR S=1 TO P9 

5540 G$(S) = MID$CL$，Q(S)，1) 

5550 NEXT S 

556] RETURN 

6210 REM CONVERT Q(GL-P9) TO HS$CL-P9) 

6030 FOR S=1 TO P9% 

6040 HS$(S) = MID$(GL$，Q(S)，1) 

6050 NEXT S 

6060 RETURN 

6510 REM COPY H$ INTO G$ 

6530 FOR S=1 TO P9 

6540 8$(S) = 1$(S) 

6550 NEXT S 

6560 RETURN 

8000 RM PROGRAM DATA FOR COLOR 
NAMES 

8010 DATAYBLACK" ,WHITE ,RED"， 
“ORANGE"， "YELLOW7,PURPLE" ,TANY 

9998 REM ...WE'RE SORRY BUT IT'S_ TIME TO 
Dsea 


* 100。 


9999 END 


32。 会 “学 习 ” 的 计算 机 


你 心中 先 想 好 一 种 动物 ， 让 计算 机 来 猜 它 是 什么 。 计 算 机 
开始 只 知道 两 种 动物 ， 鸟 (BIRD) 和 鱼 (FISH) 。 计 算 机 
先 向 你 提出 问题 ， 并 根据 你 的 回答 判断 究 觉 是 鸟 还 是 鱼 。 如 果 
都 不 对 ， 计 算 机 要 求 你 告诉 它 你 心中 的 这 一 动物 叫 什 么 名 字 。 
如 回答 它 是 象 (ELEPHANT) 。 计 算 机 要 求 你 说 明 象 和 它 
刚才 猜 的 动物 〈 乌 ) 之 间 的 某 一 方面 差别 ， 这 是 由 你 用 提问 并 
回答 的 形式 提供 的 。 例 如 你 打 入 “DOES ITLIKEPEANUTSY 
〈 它 喜欢 落花 生 吗 ? ) ， 并 由 你 回答 “是 ”或 “ 否 ” (YES 或 
NO) 。 计 算 机 由 此 “增长 ”了 知识 ,知道 有 一 种 动物 名 叫 “ 象 ”， 
喜欢 落花 生 ， 然 后 计算 机 再 让 你 想 另 一 种 动物 。 假 如 你 心目 
中 这 种 动物 是 “海豹 ”， 计 算 机 根据 它 已 有 的 知识 问 你 “ 它 会 
游泳 吗 ? ”你 回答 “会 ”， 计 算 机 从 它 已 有 的 “动物 字典 ”中 
查 出 鱼 会 游 闵 ， 问 你 是 不 是 鱼 ? 你 回答 “不 是 ”。 计 算 机 又 要 
求 你 说 出 你 心目 中 这 一 动物 是 什么 ? 你 回答 “ 海 鹏 ”。 计 算 机 
要 求 你 描述 海豹 与 鱼 之 间 的 区 别 。 你 可 打 入 “DOES IT 
HAVE SCALES” (〈 它 有 鳞 吗 ) ， 然 后 回答 ， 计 算 
机 又 把 这 一 特征 记 下 来 。 如 此 一 次 一 次 地 “训练 ”， 使 计算 机 
“知道 ” 愈 来 愈 多 的 动物 ， 以 后 便 角 E 根 据 这 些 动 物 的 名 和 特 
点 来 进行 猜测 ， 也 就 是 说 计算 机 会 “学 习 ” 新 的 知识 。 


当 计 算 机 打出 “ARE YOU THINKING OF AN 
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ANIMAL? ”上 时， 如 果 你 打 入 “LIST” (而 不 是 “YES92” 或 
“Y”) ， 计 算 机 就 打印 出 它 “ 学 习 ” 到 的 全 部 动物 的 名 字 。 
改变 530 语句 就 可 以 改变 原 有 的 “知识 库 ”。 例 如 可 以 
不 猜 动 物 ， 改 成 猜 机 器 的 名 字 〈 告 诉 它 不 同 机 器 的 特点 ) 、 猜 
食物 〈 告 诉 你 不 同 食物 的 特性 ) 等 。 这 种 游戏 是 颇 为 有 趣 的 。 


PLAY GUESS THE ANIMAL” 
THINK OF AN ANIMAL AND THE COMPUTER 
WILL TRY TO GUESS IT 


ARE YOU THINKING OF AN ANIMAL? Y (你 
想 一 个 动物 ) 

DOES IT SWIM? NO 

IS9 IT A BIRD? NO 


THE ANIMAL YOU WERE THINKING OF WAS 
A? ELEPHANT (和 象 ) 


PLEASE TYPE IN A QUESTION THAT WOULD 
DISTINGUISH 和 A 


ELEPHANT FROM A BIRD 
? DOES IT LIKE PEANUTS 
FOR A ELEPHANT THE ANSWER WOULD BE? 


YES 
ARE YOU THINKING OF AN ANIMAL? YES (你 
再 想 一 个 动物 ) 
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DOES ]IT SWIM? YES 

IS IT A FSH? NO 

THE ANIMAL YOU WERE THINKING OF WAS 
A? SEAL 

PLEASE TYPE IN A QUESTION THAT WOULD 
DISTINGUISH A 

SEAL FROM A FISIHi 

? DOES IT HAVE SCALES  ( 它 有 鳞 吗 ? ) 

FOR A SEAL THE ANSWER WOULD BE? NO 

ARE YOU THINKING OF AN ANIMALY? YES 

DOES IT SWIM? NO 

DOES IT LIKE PEANUTS? NO 

IS IT A BIRD? NO 

THE ANIMAL YOU WERE THINKING OF WAS 
A? LION 


PLEASE TYPE IN A QUESTION THAT WOULD 
DISTINGUISH A 


LION FROM A BIRD 
? DOE9 IT ROAR 


FOR A LION THE ANSWER WOULD BE? YE9 


ARE YOU THINKING OF AN ANIMAL? YES 
DOES IT SWIM? YES 
DOES IT HAVE SCALES? NO 


IS IT A SEAL? NO 
THE ANIMAL YOU WERE THINKING OF WAS 
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A? OCTOPUS 

PLEASE TYPE A QUESTION THAT WOULD 
DISTINGUISH A 

OCTOPUS FROM A SEAL 

? DOES IT HAVE EIGHT TENTACLES 

FOR A OCTOPMS THE ANSWER WOULD BE ? 
YVES 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SWIM? NO 

DOES iT LIKE PEANUTS? YES 

JIS IT A ELEPHANT? YES 

WHY NOT TRY ANOTHER ANIMAL? 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SWIM? NO 

DOES IT LIKE PEANUTS? NO 

DOES IT ROAR? NO 

1S IT A BIRD? NO 

THE ANIMAL YOU WERE THINKING OF WAS 
A ? WUMPUS 

PLEASE TYPE IN A QUESTION THAT WOULD 
DISTINGUISH A 

WUMPUS FROM A BIRD 

? IS ITS LAST NAME YOB 

FOR A WUMPUS THE ANSWER WOULD BE ? 
YES 


ARE YOU THINKING OF AN ANIMAL? LIST 


。104。 


ANIVMALS I ALREADY KNOW ARE， 
ELEPHANT FISH LION SEAL OCTOPUS 
BIRD WUMPUS 


ARPE YOU THINKING OF AN ANIMAL? NO 


程序 为 

10 PRINT "PLAY 'GUESS THE ANIMAL 

50 PRINT THINK OF AN ANIMAL AND THE 
COMPUTER WILL TRY TO GUESS IT.r 

60 了 PRINT 

70 BIM AS$(200) 

80 FOR I=07TO3 

90 READ AS$(D) 

100 NEXT I 

110 N=VAL(A$(C0)) 

120 REM MAIN CONTROL SECTION 

130 INPUT ”ARE YOU THINKING OF AN 
ANIMAL' AV$ 

140 IF A$=?"LIST" THEM 600 

150 IF LEFT$CA$，1)《 >7Y" THEN 130 

160 氏 =1 

170 GOSUB 390 

180 IF LEN(A$CK)) =0 THEN 999 

190 IF LEFT$(A$CIK)，2) = QTHEN .170 

200 PRINT ?IS IT A RIGHT$CASCIK) ,LEN(CAS$ 


( 必 )) 一 2)3 
“ 105。 


210 


220 


230. 


240 


250 


260 


360 
370 


380 
390 
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INPUT Apy 

A$=LEFT$CA$，1) 

IF A$="Y" THEN PRINT WHY NOT TRY 
ANOTHER ANIMAL? ":， GCL 2 O 130 

JINPUT "THE ANIMAL YOU WERE THINKING 
OF WAS A 0 V$ 

PRINT "PLEASE TYPE IN A QUESTIOI 
THAT WOULD DISTINGUISH A7 

PRINT V$ ”FROM A 2 RIGHT$CA$CGK)， 
LEN(A$(CK)) 一 2) 

INPUT X$ 

PRINT "FOR A 和 V$7 THE ANSWER 
WOULD BE 7”; 

INPUT Ap$ 

A$=LEFT$CA$，1):， IF A$<>7Y” AND 
A$ >7N7 THEN 280 

IF A$=?Y7 THEN B$=72NY 

IFE A$=7N7 THEN B$=7Y7 
Z1=VALIA$(0)) 

A$(0) = STR$(CZ1+2) 

A$(Z1) =A$(K) 

A$(Z1+1) = AI+V$ 

A$(K)= QI+XS+AN+ASFESTRS$(Z1+1)+ 
NT+B$+STRS$CZ1) +NVY 

GOTO 130 

REN SUBROUTINE TO PRINT 
QUESTIONS 


400 Q$= A$(K) 

410 FOR Z=3 TO LEN(Q$) 

415 JE MID$CQ$，Z，1) > THEN PRINTI 
MID$(Q$，Z，1)3，NEXT 2Z 

420 JINPUT C$ 

430 C$= LEFT$CC，1) 

440 IF C$4 >"Y” AND CC >7N7 THEN 410 

450 T$= 2+C$ 

455 FOR X=3 TO LEN(Q$) -1 

460 JF MID$(Q$,X,2) =T$ THEN 480 

470 NEXT X 

475 STOP 

480 FOR Y=X+1 TO LEN(Q$) 

490 JF MID$CQ,Y,1) = THEN 510 

500 NEXT 立 

505 STOP 

510 K=VALIMiD$(Q$,X+2,Y--X 一 2)) 

520 RETURN 

530 DATA "4"，NQDOES IT SWIMNY2NN3N 
人 NAFISH7 ,NABIRDY 

600 PRINT，PRINT ANIMALS I ALREADY 
KNOW ARE:, 

605 X=0 

610 FOR I=1 TO 200 

620 IF LEFT$(CA$(OD ,2 > 和 ATHEN 650 

624 PRINT TAB(12xX); 

630 FOR Z=3 TO LEN(A$(OD) 


和 J07 Je 


640 IF MID$(CA$D ,Z,1D) > THEN PRINT 
MID$(A$GD) ,Z,1);，NEXT Z 

645 X=X+1l: IF X75 THEN 又 =0，PRINT 

650 NEXT II 

660 PRINT 

670 PRINT 

680 GOTO 130 


999 上 END 


由 


33。 取 数 


假设 有 数 N， 你 和 计算 机 轮流 从 中 取 走 一 个 数 X( 事 先 规 
定 每 次 取 走 的 数 X 不 能 超过 某 一 指定 的 常数 K) 。 如 果 你 取 
完 一 个 数 后 ， 余 下 的 数 为 1， 则 你 胜 。 如 果 计 算 机 取 完 一 个 数 
后 ， 余 下 的 数 为 1， 而 迫使 你 取 1， 则 计算 机 胜利 。 


游戏 的 记录 如 下 : 

TYPE THE INITIAL NUMBER YOU CHOOSE (你 
指定 开始 的 数 是 多 少 ) 

? 100 (指定 为 100) 


TYPE THE MAXIMUM NUMBER WHICH CAN 
BE TAKEN AWAY 

? 40 (指定 每 次 可 以 取 走 的 最 大 值 ) 

YOUR MOVE IS ? 15 

MY MOVE IS 2 

NUMBER REMAINING IS 83 

YOUR MOVE IS? 35 

MY MOVE IS 6 
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NUMBER REMAINING IS 42 
YOUR MOVE I9 ? 23 

MY MOVE IS 18 

NUMBER REMAINIJING IS 1 
YOUR MOVE I9 ? 上 


米 水 汪 琅  WV NT 灯 空 衬 
IFY=17TOPLAY AGAIN，IFY=0 
OTHERYWISE? 0 (不 再 玩 了 ) 


程序 为 : 

100 PRINT "TYPE THE INITIAL NUMBER 
YOU CHOOSEY 

140 INPUT N 

160 PRINT "TYPE THP MAXIMUM NUMBER 

WHICH CAN BE TAKEN AWAYY7 

170 INPUT 开 

175 JIF K>N THPN 160 

180 PRINT ”YOUR MOVE 19S05 

190 INPUT X 

200 JF X<1 THEN 27u 

210 ]F X>K THEN 270 

230 R 开 M TEST FEOR WIN 

240 N=N 一 从 

250 IE N>0 THEN 290 

255 PRINT 

260 PRINT 7 7，7 宇 站 汪 工 WIN 六 汪汪 汪 由 
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265 


GOTO 440 


270 PRINT ”JILLEGAL MOVEY 


280 


GOTO 180 


290 REM COMPUTE MOVE 


300 
310 
315 
320 
330 
24， 
370 
380 
390 
400 
4.0 
430 


Q=INTION-1)/(GK+1)) 
Y=(N=-1l)-Qxs(K+1) 
IFEY(>0THEN 330 

下 二 证 

N=N-Y 

PRINT MY MOVE JS "3 Y 
IFEN=0THEN 430 

PRINT "NUMBER REMAINING JS N 
GOTO 180 


PR NT 

REM 1MPLEMENT LATER 

PRINT  “----BEGINNER IS LUCK YOU BEAT 
ME 2 


PRINT "IF Y=1 TO PLAY AGAIN，IF Y=0 
OTHERYWISE7， 

INPUT Y 

PRINT 

IF Y=1l1THEN 100 

上 上 ND 


34。 23 根 火 此 


上 附子 上 放 着 23 根 火柴 。 有 两 个 人 轮流 取 火 柴 ， 每 次 只 能 
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一 根 、 二 根 或 三 根 ， 取 最 后 一 根 的 人 为 输 。 由 计算 机 代表 一 
方 。 先 由 计算 机 模拟 抽签 决定 由 谁 先 取 ， 随 后 开始 取 火柴 ， 每 
次 取 后 是 计算 机 打印 出 余下 的 火柴 数 。 如 果 轮 到 你 最 后 一 次 取 
时 ， 火 柴 数 为 4、3 或 2， 那 么 你 就 会 赢 ， 因 为 你 可 以 取 3、 
2 或 1， 最 后 余下 一 根 给 对 方 。 你 应 当 给 对 手 留 下 的 火柴 数 为 
5， 它 就 会 输 。 

TI TAKE 2 MATCHES 

THE NUMBER OF MATCHE9S IS NOW 21 


YOUR TURN 一 YOU MAY TAKE 1，2，OR 3 
MATCHES . 

HOW MANY DO YOU WISH TO REMOVE ?3 

THERE ARE NOW 18 MATCHES REMAINING， 

MY TURN ! REMOVE 1 MATCHES 

THE NUMBER OF MATCHES9S IS NOW 17 


YOUR TURN 一 YOU MAY TAKE 1,2,OR 3 
MATCHES . 

HOW MANY DO YOU WISH TO REMOVE ?1 

THERE ARE NOW 16 MATCHES REMAINING 

MY TURN ! 工 REMOVE 3 MATCHES 

TNE NUMBER OF MATCHES IS NOW 13 


YOUR TURN 一 YOU MAY TAKE 1,2,OR 3 
MATCHES . 

HOW MANY DO YOU WISH TO REMOVE ?1 

THERE ARE NOW 12 MATCHES REMAINING。 

MY TURN ! TREEMOVE 3 MATCHES 


“ed ite 


TNE NUMBER OF MATCHES JS NOW 9 


YOUR TURN 一 YOU MAY TAKE 1,2,OR 3 
MATCHES 

HOW MANY DO YOU WISH TO REMOVE ?1 

THERE ARENOW 8MATCHES REMAIJNINC . 

MY TURN ! 工 REMOVE 3 MATCHES 

THE NUMBER OF MATCHES IS NOW 5 


YOUR TURN 一 YOU MAY TAKE 1,2,OR 3 
MATCHE9 . 

HOW MANY DO YOU WISH TO REMOVE ?2 

THERE ARE NOW 3 MATCHES REMAINING， 

MY TURN ! 工 REMOVE 2 MATCHES9 


YOU POOR BOOB ! YOU TOOK THE LAST 
MATCH ! 工 GOTCHA ! ! 
HALIHAI ITBEATYOUI II 


GOOD BYE LOSERI! 
100 N = 23 


170 Q=INT(2*RND(0)) 
180 IF Q=1 THEN 230 (计算 机 先 取 ) 


200 GOTO 300 〈 你 先 取 ) 

230 PRINT 

250 PRINT ”1 TAKE 2 MATCHESY" 
260 N=N-2 


270 PRINT THE NUMBER OF MATCHES I9 
NOW"7" N 
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280 
290 


300 


310 
320 
330 
340 
350 


400 
410 


PRINT 

PRINT "YOUR TURN 一 YOU MAY TAKE1， 
2,OR 3 MATCHES.7 

PRINT "HOW MANY DO YOU WISH TO 
有 EMOVE7; 

INPUT 开 

IF KK>3 THEN 310 

IF K《=0 THEN 310 

N=N- 开 

PRINT ITHERE ARENOW "Ni MATCHES9S 
REMAINING.7 


IFN=4THEN 381 


IFN=3THEN 383 
IFN=2THEN 385 
IFN 《=1 THEN 530 
和 =4- 改 

GOTO 390 

PRINT 

Z=3 

GOTO 390 

三 沁 

GOTO 390 

Z=1 

PRINT "MY TURN ! 工 REMOVE" 2 
”MATCHESY 
N=N-2Z 

IE N4=1 THEN 470 
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420 GOTO 270 

470 PRINT 

480 PRINT7YOU POOR BOOB ! YOU TOOK THE 
LAST MATCH ! TIGOTCHA ! ! 7 

490 PRINT "HA ! HA! IBEAT YOU 1!1 

500 PRINT 

510 PRINT "GOOD BYE LOSERI! " 

520 GOTO 560 

530 PRINT "YOU WON，FLOPPY 下 ARS 久 

560 END 


35。 取 物 竞赛 


假定 桌 上 有 一 堆 物 品 〈 辟 如 铜币 ) ， 你 和 你 的 对 手 轮流 从 
这 堆 中 拿 取 。 你 可 以 事先 指定 每 次 取 物 的 最 大 数值 和 最 小 数 
值 ， 还 可 以 指定 以 哪 种 结局 为 胜 〈 指 定 “1” 表 示 取 最 后 一 个 
物品 的 人 为 胜 。 指 定 “2” 表 示 取 最 后 一 物品 者 为 输 ) ， 以 及 
指定 由 你 先 取 还 是 由 计算 机 先 取 。 
THE GAME STARTS WITH AN ASSUMED PILE 
OF OBJECTS . 
YOU AND YOUR OPPONENT ALTERNATELY 
REMOVE OBJECTS FROM 
THE PILE WINNING IS DEFINED IN ADVANCE 
AS TAKING THE 
LAST OBJECT OR NOT. YOU CAN ALSO 
SPECIFY SOME OTHER 
BEGINNING CONDITIONS，DON'T USE ZERO， 
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HOWEVER，IN 
PLAYING THE GAME. 


ENTER PILE SIZE? 23  (〈 推 中 物品 件数 ) 
ENTER WIN OPTION - 1TOTAKE LAST， 
2TO AVOID LAST:， ? 2 
ENTER MIN AND MAX ?1,3 (最 少 取 1， 最 多 
取 3) 
ENTER START OPTION - 1 COMPUTER 
FIRST，2 YOU FIRST ? 2 〈 你 先 取 ) 
YOUR MOVE ? 2 
COMPUTER TAKES 1 AND LEAVES 20 
YOUR MOVE ?3 
COMPUTER TAKES 1 AND LEAVES 16 
YOUR MOVE ? 3 
COMPUTER TAKES 1 AND LEAVES 12 
YOUR MOVE ? 3 
COMPUTER TAKES 1 AND LEAVES 8 
YOUR MOVE ? 3 
COMPUTER TAKES 1 AND LEAVES 4 
YOUR MOVE ? 3 
COMPUTER TAKES 1 AND LOSES. 
程序 如 下 : 
140 PRINT "THE GAME STARTS WITH AN 
ASSUMED PILE OF OBJECTS.， 
150 PRINT "YOU AND YOUR OPPONENT 
ALTERNATELY REMOVE OBJECTS FROMY 
160 PRINT THE PILE. WINNING TIS DEFINED IN 
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ADVANCE AS TAKING THEY 

170 PRINT "LAST OBJECT OR NOT. YOU CAN 
ALSO SPECIFY SOME OTHERY 

180 PRINT ”BEGINNING CONDITIONS. DON' 工 
USE ZERO，HOWEVYER，INY7 

190 PRINT PLAYING THE GAMEE.7 

200 PRINT 

210 GOTO 330 

220 FOR JI=1 TO 10 

230 PRINT 

240 NEXT 

330 INPUT ENTER PILE SIZE7" N 

350 IF N 20 THEN 370 

360 GOTO 330 

370 IF Ne 7>INTON) THEN 220 

380 IF NI THEN 220 

390 INPUT "ENTER WIN _ OPTION- 1 TO TAKE 


LAST，2 TO AVOID LAST，"，M 
410 IF M=1 THEN 430 
420 IF MK >2 THEN 390 
430 INPUT ENTER MIN AND MAX "，A，B 
450 IF A>B THEN 430 
460 IF Ad1 THEN 430 
470 IF Ad >INT(A) THEN 430 
480 IF BC >INT(B) THEN 430 
490 INPUT "ENTER START OPTION- 1 
COMPUTER FIRST，2 YOU FIRST "; S 
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690 


760 


IF S=1THEN 530 

IF SC >2 THEN 490 
0 C=A-+HB 

IF S=2 THEN 570 

GOSUB 600 

IF W=1THEN 220 

GOSUB 810 

IJ]F W=1THEN 220 

GOTO 550 

Q=N 

IF M=1 THEN 630 

Q=Q-1 

IF M=1l THEN 680 

IF NA THEN 720 

W=1l 

PRINT "COMPUTER TAKES"，N; AND 

LOSES." 

RETURN 

IF NB THEN 720 

W=1 

PRINT COMPUTER TAKESN;7AND WINS." 


有 RETURN 
P=Q-CsINTCQ/LC) 
IE P>=ATHEN 750 
P=A 

IF PC=B THEN 770 
P=B 


。117T。 


770 
780 


790 
800 
810 


N=N-P 

PRINT COMPUTER TAKES";P AND 
LEAVE97; N 

W=0 

RETURN 

PRINT YOUR MOVE 25 

INPUT P 

IF PS 20 THEN 870 

PRINT "ITOLD YOU NOT TO USE ZEROI 
COMPUTER WINS BY FOREFEIT." 
W=1 

了 人 ETURN 

IE PC 7INTCP) THEN 920 


IF P>=A THEN 910 

IF P=N THEN 960 

GOTO 920 

IF P4=B THEN 940 

PRINT 7ILLEGAL MOVE，REENTER IT 0 
GODTO 820 

N=N-P 

IE N4 20 THEN 1030 

JE M=lTHEN 1000 

PRINT ?TOUGH LUCK，YOU LOSE.Y 
W=1l 

有 RETURN 

PRINT "CONGRATULATIONS，YOU WIN 
W=1l 


1020 人 RETURN 

1030 IF N>=0 THEN 1060 
1040 N=N+P 

1050 GOTO 920 

1060 W=0 

1070 人 RETURN 

1080 END 


36。 偶数 者 胜 〈 一 ) 


有 一 堆 物 品 〈 例 如 弹子 、 筹 码 、 火 柴 ) ， 它 们 的 件数 为 奇 
数 。 你 和 计算 机 轮流 取 这 些 东 西 ， 每 人 每 次 取 1 一 4 个 ， 当 多 
部 取 完 时 游戏 结束 ， 谁 取 的 总 数 为 偶数 则 胜 。 

本 程序 设 开 始 时 物品 为 27 件 ， 你 也 可 以 通过 改变 250 
语句 而 修改 此 数字 。 

在 本 程序 中 ， 计 算 机 是 按照 一 个 固定 的 规律 来 选 数 的 ， 如 
提 你 技巧 不 高 ， 估 计 不 大 可 能 战胜 它 。 

THIS IS ATWO PERSON GAME CALLED 'EVEN 

WINS. 
TO PLAY THR GAME，THE PLAYERS NEED 


27 MARBLE9S OR OTHER OBJECTS ON A 
TABLE. 


THE 2 PLAYERS ALTERNATE TURNS，WITH 
EACH PLAYER REMOVING FROM 1TO 4MARBLES 
ON EACH MOVE. THE GAME ENDS WHEN THERE 
ARE NO MARBLES LEFET，AND THE WINNER TIS 
THE ONPE WITH AN FEVYPN NUMBER OF MARBTL ES . 
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TYPE A1IFE YOU WANT TO GO FIRST，AND 
TYPE A0IF YOU WANT ME TO GO FIRST， 


? 0 

TOTAL = 27 

TI PICK UP 2 MARBLES . 
TOTAL = 25 


AND WHAT' IS` YOUR NEXT MOVE，MY TOTAL 
1S 2 
? 2 
TOTAL=23 
YOUR TOTAL IS 2 


IT PICK UP 4 MARBTLFRS . 
TOTAL= 19 


AND WHAT IS YOUR NEXT MOVE，MY TOTAL 
1I9 6 
?了 4 
TOTAL = 15 


YOUR TOTAL IS 6 
I PICK UP 2 MARBLES . 
TOTAL=13 


AND WIIAT IS YOUR NEXT MOVE，MY TOTAL 
IS 8 


?1 
TOTAL =12 
YOUR TOTAL IS 7 
[PICK UP 1 MARBLES . 
TOTAL=11 
AND WHAT IS YOUR NEXT MOVE，MY TOTAL 
IS 9 
? 3 


TOTAL=8 


YOUR TOTAL TIS 10 
1 PICK UP 1 MARBLES . 
TOTAL=7 


AND WHAT 1IS YOUR NEXT MOVE，MY TOTAL 
19 10 
? 1 
TOTAL=16 
YOUR TOTAL 1S 11 
I PICK UP 1 MARBLES 
TOTAL=5 
AND WHAT 1lS YOUR NEXT MOVE，MY TOTAL 
IS 11 
? 1 
TOTAL=14 
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YOUR TOTAL IS 12 
[PICKE UP 3 MARBLES . 
TOTAL=1 


AND WHAT IS YOUR NEXT MOVE，MY TOTAL 
I9 14 
? 1 
THAT IS ALL OF THE MARBLES, 
MY TOTAL IS 14 YOUR TOTAL IS 13 


WON. DO YOU WANT TO PLAY 
AGAIN? TYPE 1 FOR YES AND 0 FOR NO， 


程序 为 ; 

4 YL=0 

10 MI1=0 

20 DIM M(20)，Y(20) 

30 PRINT / THIS IS ATWO PERSON GAME 


CALLED ' 了 EVEN WINS.… 

40 PRINT "TO PLAY THE GAME. THE 
PLAYERS NEED7 

50 PRINT "27 MARBLE9S OR OTHER OBJECTS 


ON A TABLE.， 
60 PRINT 
70 PRINT 
80 PRINT / THE 2? PLAYVERS ALTERNATE 
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90 


100 


105 


120 


330 


TURNS，WITH" 
PRINT "EACH PLAYER REMOVING 
FROM 1 TO 4 MARBLES" 


PRINT "ON EACH MOVE。THE GAME 
ENDS WHEN THEREY 

PRINT "ARE NO MARBLES LEFT，AND 
THE WINNER 1IS" 

PRINT "THE ONE WITH AN EVEN NUMBER 

OF MARBLES." 

PRINT 

PRINT / TYPE A 1 IF YOU WANT TO 

GO FIRST，AND" 

PRINT "TYPE A 0 IF YOU WANT ME 

TO GO FIRST"。 

INPUT C 

IF C=0 THEN 250 

GOTO 1060 

下 三 27 

M=2 

PRINT TOTAL = 了 

M1-= MI1+ M 

T=T-M 

PRINT "TPICK UP"，M， MARBLES.Y 

IF T=0 THEN 880 

大 彬 区 让 和 

PRINT 
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340 PRINT “” AND WHAT IS9 YOUR NEXT 
MOVE，MY TOTAL I97， MI1 

350 INPUT Y 

360 PRINT 

370 IE Y《1 THEN 1160 

380 IF Y>4 THEN 1160 

390 IF YC=T THEN 430 

400 PRIJNT ” YOU HAVE TRIED TO TAKE 
MORE MARBLE9S THAN THERE AREZ7 


410 PRINT LEFT. TRY AGAIN 
420 GOTO 350 

430 Y1=Y1+Y 

440 下 = 下 一 YY 

450 IF T=0 THEN 880 

460 PRINT ?TOTAL = 了 

470 PRJNT 

480 PRINT ” YOUR TOTAL IS" Y1 
490 IF T《.5 THEN 880 

500 R= 工 -6xINT(CT/6) 

510 IF INT(CY1/2) =Y1/2 THEN 700 
520 IF T44.2 THEN 580 

530 IF R>3.4 THEN 620 

540 M=R+1l 

550 M1= Ml+ M 

560 T= 工 -M 

570 GOTO 300 

580 M = 工 
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590 


T= 工 -M 

GOTO 830 

RE 匡 M 250 ]9 WHERE T WIN 

IF R44.7 THEN 660 

JE R2>3.5 THEN 660 

M=1 

GOTO 670 

M=4 

工 = 工 -M 

M1= M1+ M 

GOTO 300 

及 芋 M JI AM READY TO ENCODE THE 
9TRAT FEOR WHEN OPP TOT 1IS EVEN 


IF Rd1.5 THEN 1020 

JE R>5.3 THEN 1020 

M=R-1 

M1= Ml + M 

工 = 工 -M 

IF T4.2 THEN 790 

R 匡 M I9 # ZFERO HERE 

GOTO 300 

人 世 M 19 = ZERO HERE 

PRINT 7 PICKR UP MI 多 MARBLES.Y 
PRINT 

GOTO 880 

及 芝 M THIS IS9 WHERE TI WIN 
PRINT "IT PICK UP"， M; "MARBLES. 


.125"。 


850 


870 


920 


PRINT 

PRINT 7TOTAL = 07 

M1= MLI+M 

PRINT THAT IS ALL OF THE MARBLES.Y 
PRINT 

PRINT "MY TOTAL IS"， M1;" YOUR TOTAL 
J97 Y1 

PRINT 

IF INTIM1/2) =Ml/2 THEN 950 

PRINT YOU WON. DO YOU WANT TO 
PLAYY 

GOTO 960 

PRINTIT ? TI WON. DO YOU WANT TO 
PLAY7 

PRINT "AGAIN? TYPE 1 FOR YES AND 0 
FOR NO./ 

INPUT Al 

IF A1=0THEN 1030 

M1 =0 

Y1=0 

GOTO 200 

GOTO 640 

PRINT 

PRINT “OK. SEE YOU LATER。y 

GOTO 1230 

山 全 27 

PRINT 


1100 PRINT ?TOTAL= "5 工 

1120 PRINT 

1130 PRINT “” WHAT IS YOUR FIRST MOVEY 

1140 INPUT Y 

1150 GOTO 360 

1160 PRINT 

1170 PRINT ?THE NUMBER OF MARBLES YOU 
TAKE MUST BE A POSITIVE7 

1180 PRINT ”NTEGER BETWEEN 1 AND 4.7 

1190 PRINT 

1200 PRINT“ WHAT 1S YOUR NEXT MOVEY 

1210 PRINT 

1220 PRINT 

12230 GOTO 350 

1230 END) 


37。 偶数 者 胜 〈 二 ) 


由 计算 机 产生 一 个 随机 数 ， 它 代表 斌 在 盘 上 的 筹码 的 个 
数 ， 是 一 个 奇数 。 每 次 每 人 可 以 取 1 一 4 个 ， 节 后 结束 时 ， 谁 
取 的 总 数 为 偶数 则 胜 。 

计算 机 开始 时 只 知道 游戏 的 规则 ， 但 它 会 从 实践 中 学 习 ， 
玩 过 二 十 次 之 后 ， 你 就 难以 取 些 计算 机 了 。 

如 果 你 不 奶 苞 了 ， 打 入 一 个 “0” 即 可 。 

THERR ARE 21 CHIPS ON THE BOARD. 

COMPUTER TAKES 4 CHIPS LEAVING 17 

YOUR MOVE? 4 
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THERE ARE 13 CHIPS ON THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVING 9 
YOUR MOVE? 2 

THERE ARE 7 CHIPS ON THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVING 3 
YOUR MOVE? 1 

THERE ARE 2 CHIPS ON THE BOARD， 
COMPUTER TAKES 2 CHIPS. 

GAME OVER ... 工 WIN! ! 1! 


THERE ARE 19 CHIPS ON THE BOARD， 
COMPUTPER TAKES 4 CHIPS LEAVING 15 
YOUR MOVEY? 4 

THERE ARE 11 CHIPS ON THE BOARD。 
COMPUTER TAKES 4 CHIPS -EAVING 7 
YOUR MOVE? 2 

工 HERE ARE 5 CHIPS ON THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVING 工 
YOUR MOVEY? 1 

GAME OVER ...IWINI ! 1 


THERE ARE 9 CHIPS ON THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVING 5 
YOUR MOVE? 2 

工 HERE ARE 3 CHIPS ON THE BOARD。 
COMPUTER TAKES 3 CHIPS . 

GAME OVER ...、 YOU WINI ! 4! 


THERE ARE 21 CHIPS ON THE BOARD. 
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COMPUTER TAKES 2 CHIPS LEAVING 19 
YOUR MOVEY? 2 

THERE ARE 17 CHIPS ON THE BOARD， 
COMPUTER TAKES 4 CHIPS LEAVING 13 
YOUR MOVE? 1 

THERE ARE 12 CHIPS ON THE BOARD， 
COMPUTER TAKES 4 CHIPS LEAVING 8 
YOUR MOVEY? 3 

THERE ARE 5 CHIPS ON THE BOARD. 
COMPUTER TAKES 4 CHIPS LEAVING 1 
YOUR MOVE? 1 

GAME OVER ... IIWIN! ! ! 


THERE ARE 9 CHIPS ON THE BOARD. 
COMPUTER TAKES 2 CHIPS LEAVING 7 
YOUR MOVE? 4 

THERE ARE 3 CHIPS ON THE BOARD. 
COMPUTER TAKES 2 CHIPS LEAVING 1L 
YOUR MOVE? 1 

GAME OVER ... 上 WIN! ! ! 


THERE ARE 21 CHIPS ON THE BOARD， 
COMPUTER TAKES 2 CHIPS LEAVING 19 
YOUR MOVE? 1 

THERE ARE 18 CHIPS ON THE BOARD， 
COMPUTER TAKES 4 CHIPS LEAVING 14 
YOUR MOVE7? 1 

THERE ARE 13 CHIPS ON THE BOARD， 
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COMPUTER TAKES 4 CHIPS9 LEAVING 9 
YOUR MOVF? 1 

THERE ARE 8 CHIPS ON THE BOARD. 
COMPUTER TAKES 2 CHIPS LEAVING 6 
YOUR MOVE? 1 

THERE ARE 5 CHRIPS ON THE BOARD， 
CQOMPUTER TAKES 4 CHIPS LEAVING 1I 
YOUR MOVE? 1 

GAME OVER ..,. WIN! ! ! 


THERE ARE 9 CHIPS ON THE BOARD， 
COMPUTER TAKES 2 CHIPS LEAVING 7 
YOUR MOVE? 4 

THERE ARE 3 CHIPS ON THE BOARD. 
COMPUTER TAKE9 2 CHIPS LEAVING TI 
YOUR MOVE? 1 

GAME OVER ...TWINI !! 


THERE ARE 21 CHIPS ON THE BOARD， 
COMPUTER TAKES 2 CHIPS LEAVING 19 
YOUR MOVE? 4 

THERE ARE 15 CHIPS ON THE BOARD， 
COMPUTER TAKES 2 CHIPS LEAVING 13 
YOUR MOVE? 3 

THERE ARE 10 CHIPS ON THE BOARD， 


COMPUTER TAKES 4 CHIPS LEAVING 6 
YOUR MOVE? 4 

THERE ARE 2 CHIPS ON THE BOARD， 
COMPUTER TAKES 2 CHIPS。 

GAME OVER ...、I WIN! ! ! 


20 DIM R(1,5) 

25 L=0:， B=0 

30 FOR I=0 TO 5 

40 R(1,D=4 

50 有 (0,1D)=4 

60 NEXT I 

70 A=0: B=0 

90 P=JINT(GL3*RND(0)+9)/2)*2 二 1 

100 IF P=1 THEN 530 

110 PRINT ?THERE ARE7"，P， "CIHIPS ON THE 
BOARD.7 

120 了 1= 忆 

130 LI1= 工 

140 下 =(A/2-JNT(A/2))*2 

150 L=JNT(CCOP/6-JINTIP/6))*6+.5) 

160 IF RCGE,L)>=PTHREN 320 

170 M= 有 (了 , 世 ) 

180 IF MG=0 THEN 370 

190 P= 了 =- M 

200 IF M=1l THEN 510 

210 PRINT "COMPUTPR TAKES7"，M 7 CHIPS 
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LEAVING7"， 了 


215 PRINT 7YOUR MOVE7 5 

220 B=B+M 

230 INPUT M 

240 M= INTCM) 

250 IF ML THEN 450 

260 IF M>4 THEN 460 

270 IF M>P THEN 460 

280 IF M=P THEN 360 

290 P= 了 - M 

300 A=A+M 

310 GOTO 100 

320 IF P=1 THEN 550 

330 PRINT COMPUTER TAKEFRS" P，7CHIPS.7 
340 有 信 ( 匡 ,L) = 了 

350 B=B+P 

360 IF B/2=JNT(B/2) THEN 420 

370 PRINT "GAME OVER ...。YOU WINI ! ! 7 
380 PRINT 

390 IF R(GE,L)=1 THEN 480 

400 及 ( 卫 ,L) = 有 人 ( 匡 ,L) 一 1 

410 GOTO 70 

420 PRINT "GAME OVER ... 工 WINII!"，PRINT 
430 GOTO 70 

450 IF M=0 THEN 570 

460 PRINT M; 7"IS AN ILLEGAL MOVEY 

465 PRINT YOUR MOVE7 


。132。 


470 GOTO 230 

480 IF RE1,Ll) =1 THEN 70 

490 R(P1,L1) =R(CE1,LI) 一 1 

500 GOTO 70 

510 PRINT "COMPUTER TAKES 1 CHIP 
LEAVING7 了 

515 PRINT "YOUR MOVE7; 

520 GOTO 220 

530 PRINT THERE IST1TCHIPON THE BOARD.7 

540 GOTO 120 

550 PR NT _ "COMPUTER TAKES 1 CHIP.7 

560 GOTO 340 

570 END 


38。 尼 点 概率 


本 程序 与 共 说 是 游戏 ， 不 如 说 是 一 种 概率 求 算 方 法 。 模 拟 
据 一 对 骨 子 ， 每 一 次 可 以 得 到 两 个 骸 点 之 和 。 你 打 入 一 个 掷 仍 
子 的 次 数 〈 它 应 是 一 个 很 大 的 数 ) ， 计 算 机 会 打印 出 每 一 种 数 
(两 个 骸 点 之 和 ) 出 现 的 次 数 。 指 定 的 次 数 愈 大 ， 则 愈 接近 理 
论 值 ， 如 : 


两 骸 点 之 和 概 率 百 分 比 
2 1/36 2.777.… 冯 
3 2/36 5.5555.… 反 


4 3/36 8.3333…%% 
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你 可 以 试 一 下 当 次 数 为 多 少时 ， 才 能 接近 理论 值 ? 实际 上 
此 汝 应 大 于 500u， 

HOW MANY ROLLS? 10000 

TOTAL SPOTS NUMBPR OF TIMES 


2 312 
3 543 
4 820 
5 1148 
6 1395 
了 1680 
8 1330 
9 1125 
10 841 
11 542 
12 2614 


TRY AGAIN? YES 
HOW MANY ROLLS? 100 
TOTAL SPOTS NUMBER OF TIMES 


程序 为 ， 
10 DIM F(12) 
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FOR Q=1 TO 12 

F(Q) =0 

NEXT Q 

PRINT:，PRINT "HOW MANY ROLL975 
INPUT X 

FOR S=1 TO XXX 

A=JINT(6*RND(0) +1) 
B=INT(6sRND(0) +1) 


R=A+B 
FE(R) =FGR)+1 


NEXT S 
PRINT 


PRINT ”TOTAL SPOTS7"， "NUMBER 
TIMES97 


FOR V=2 TO 12 

PRINT V，F(CV) 

NEXT V 

PRINT:，PRINT TRY AGAINV5 


INPUT Z$ 
IF Z$="YES" THEN 80 
END 


OF 
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39。 标 枪 投 加 


这 个 游戏 最 多 允许 二 十 个 人 参加 , 靶 标 分 为 10 分 .20 分 、 
30 分 、40 分 四 个 区 ， 以 先 打 满 200 分 者 为 胜 。 可 以 选择 下 
述 三 种 姿势 进行 投 靶 ， 每 种 姿势 可 能 击 中 目标 的 情况 如 下 : 


部 法 | 次 的 可 能 击 中 哪 -区 

0 过 肩 快 速 所 出 一 | 击 中 彼 心 或 飞 出 外 面 

| 竹 过 让 他 细 靖 准 。 | 击 中 10,20,30 分 的 区 
下 。 | 您 手 扼 册 任何 区 都 可 能 


以 手法 下 为 例 ， 计 算 它 可 能 得 分 的 情况 〈 请 看 220 语 
句 中 的 数据 ) 。 


击 中 区 | 概 9 X 卫 
于 1.00-0.95-0.05 | 2 
30 0.95-0.75= 0.20 6 | 
20 0.75 一 0.45=0.30 6 
10 0.45 一 0.05=0.40 4 
0 | 0.05 一 0.0 =0.05 0 

“本 闫 法 可 能 得 分 〈 平 均值) 18 
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你 可 以 同样 计算 出 掷 法 [ 和 工 可 能 得 分 的 概率 。 


经 过 计算 情况 如 下 : 
掷 法 下 

攻 概 率 SS 
40 |j1-0.65=0.35 1-0.99-0.01 E 0.4 
30 |0.65-0.55=0.10 0.99-0.77=0.22| 6.6 
20 |0.55-0.5=0.05 0.77-0.43=0.34 6.8 
10 |0.5-0.5=0 0.43 一 0.01=0.42| 4.2 
0 |o.5-0=0.5 0.01-0=0.01 0 
分 〈 平 17.6 
均值 ) 


游戏 时 ， 先 指定 参加 游戏 的 人 数 ， 然 后 在 每 一 轮 中 各 人 打 
入 自己 选择 的 掷 法 ， 计 算 机 会 告诉 你 投 中 哪 一 区 ， 并 累计 得 
分 。 当 有 一 个 人 积分 超过 200 时 ， 游 戏 就 结束 了 。 


HOW MANY PLAYERSY? 


4) 


忆 


NAME OF PLAYER +# 1 ? STEVE 
NAME OF PLAYER #+ 2 ? DARTH 


ROUND 1 


STEVE'S9 THROW? 1 


30-POINT ZONE'! 


TOTAL SCORE = 30 
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DARTH'S THROWY? 2 
WHEW! 10 POINIS. 
TOTAL SCORE=10 


ROUND 2 


STEVE S THROW? 3 
MISSED THE TARGET! TOO BAD， 
TOTAL SCORE= 30 


DARTH'S THROW? 1 
MISSED THE TARGET! TOO BAD， 
TOTAL SCORE = 10 


ROUND 3 


STEVE 3 THROW3? 1 
20-POINT ZONE 
TOTAL SCORE=50 


DARTH2S THROW? 1 
MISSED THE TARGET! TOO BAD， 
TOTAL SCORE 世 =10 


ROUND 1 


STEVE S THROW? 2 
MJSSED THE TARGET! TOO BAD. 
TOTAL SCORE=50 


DARTHS THROW? 2 
20-POINT ZONE 
TOTAL SCORE = 30 
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ROUND 5 

STEVE S THROW? 1 
BULLSEYE! ! 40 POINTSI! 
TOTAL SCORE =90 
DARTH2S THROWY? 1 
MISSED THE TARGET! TOD BAD. 
TOTAL SCORE = 30 

ROUND 6 

STEVE'S THROWY? 1 
30-POINT ZONEI! 

TOTAL SCORE = 120 
DARTEHCS THROWY? 2 
WwWHEW1! 10 POINTS. 
TOTAL SCORE = 40 
ROUND 7 

STEYES THROW? 2 
WHEWI! 10 POINTS . 
TOTAL SCORE =130 
DARTH29 THROWS? 3 
MI9SED THE TARGETL TOO BAD， 
TOTAL SCORE = 40 

ROUND 8 


STEVE THROW?1 
BULLSEYEIL 40 POINTSI 
TOTAL SCORE =170 
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100 
105 
110 
120 
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DARTH'S THROW? 2 
WHEW! 10 POINTS. 
TOTAL SCOR 匡 =50 


ROUND 9 


STEVE'S THROW? 2 
20-POINT ZCNE 
TOTAL SCORE::190 


DARTH2S THROW?7 1 


MISSED THE TARGETI! TOO BAD， 


TOTAL SCORE = 50 
ROUND 10 


STEVE'S THROW37 2 
20-POINT ZONE 
TOTAL SCORE = 210 


DARTH2S THROW3? 1 


MISSED THE TARGET! TOO BAD. 


TOTAL SCORE = 50 


WE HAVE A WINNTRI! ! 
STEVE SCORED 210 POINTS. 


THANKS FOR THE GAME， 


DIM A$(20)，S(20)， W(10)，M=0， 


FOR I=1 TO 20; SGD =0， NEXT 上 


INPUT "HOW MANY PLAYER9S7 N: 


FOR I=1 TON 


R=0 


PRINT 


280 


290 


PRINT NAME OF ” AZER #; $:，， INPUT 

A$(D) 

NEAXT 

R=R+1l，PRINT:，PRINT 7ROUND7 有 

FOR T=1 TON 

PR NT:，PRINT A$CD， 2”3S THROWY73; 

INPUT 熙 

IF To OR T>3 THEN PRINT 7TNPUT 1，2， 

OR 3! “:，GOTO 170 

ON T GOTO 200，210，200 

P1=.65，P2=.55，P3=.5:， P4= .5，GOTO 230 

P1= .99，P2=.77，P3=.43:，， P4=.01，GOTO 

230 

P1= .95，P2=.75:， P3= .45， P4= .05 

U=RND(0) 

JPF U>=PLI THEN PRNT "BULLSEEYE! ! 40 

POINTS! ":，B=40，GOTO 290 

IF U=P2THEN PRINT "30-POINT ZONE ， 

B=3]7，GOTOD 290 

IFP U>=P3 THRN PRINT 720-POINT ZONE7， 
=20，GOTO 290 

IUD=DPL THEN PRINT 7WHEWI 10 

PO NTS.y，B =10，GOTO 290 

PRINT MISSED THE TARGET! IOO BAD， 

/ B=0 

S(TD) =S(D+B，PRINT 7YTOTAL SCORE = 

95(D，NEXT 1 
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300 FOR I=1 TO N 

310 IF S(D>= 200 THEN M=M+1，W(M)=1 

320 NEXT 1 

330 IF M=0 THEN 150 

340 PRINT，PRINT "WE HAVE A WINNERIL 

345 PRINT 

350 FOR 1=1 TO M，PRINT ASCWCD); 
"SCORED"，S(CW(D)，"POINTS."，NEXT 1 

360 PRINT，PRINT "THANKS FOR THE 
GAME."，END 


40。 猜 尖 

孩子 们 都 受 玩 “石头 一 剪刀 一 纸 ” 的 犹 产 游戏。 两 人 同时 
出 手 ， 手 掌 平 伸 代 表 “ 纸 >”， 担 拳 代表 “石头 ”， 侣 两 个 指头 代 
表 “ 剪 万 ”。 石 头 砸 剪刀 〈 石 头 胜 ) ， 剪 刀 剪 纸 《〈 剪 刀 胜 ) ， 
纸 包 石头 〈 纸 胜 ) 。 

现在 你 和 计算 机 玩 这 个 游戏 。 以 “1” 代 表 纸 ，“2” 代 表 
剪刀 ，“3” 代 表 石 头 。 你 打 入 1、2 或 3 表示 你 出 纸 、 剪 刀 
或 石 凑 ， 计 算 机 也 选择 1、2 或 3 中 的 一 个 数 ， 之 后 判 谁 获 
胜 。 一 局 游戏 可 做 十 次 ， 然 后 计 分 ， 计 算 机 会 告诉 你 各 胜 了 见 
次 ， 平 了 几 次 ， 输 了 几 次 。 

30 INPUT "HOW MANY GAMES' Q 

40 IF QI THRN 60 

50 PRINT "SORRY, BUT WE AREN'T ALLOWED 

TO PLAY THAT MANY.":， GOTO 3u 
60 FOR G=1 TOQ 
70 PRINT:， PRINT "GAME NUMBER"，G 
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又 =INTCRND(0)#*3+1) 

PRINT "3=ROCK...2=3CISSOR9S...1= 

了 APERY7 

INPUT 21...2...3...WHAT'S YOUR 
CHOICEY7 ;KK 

IF (KK-1JDs(K-2)*(K-3) 20 THEN PRINTI 
"INVALID.":， GOTO 90 


PRINT 7THIS IS9 MY CHOTICEE. .7 


ON X GOTO 140,150,160 
PRINT "...PAPER7:， GOTO 170 
PRINT "...SCISSORS7:，GOTO 170 


) PRINT ”.. .ROCK 


IF X=KTHEN 250 

IF X>KE THEN 230 

IF X=1T1THEN 210 

PRINT "YOU WINII! ": HH= 吾 +1，GOTO 260 
IF KK >3 THEN 200 

PRINT WOWI 工 WINIII ":， C=C+Ll 
GOTO 260 

IF K >1 CR X >3 THEN 220 

GOTO 20) 

PRINT 7TE GAME。、NO WINNER.7 
NEXT G 

PRINT:，PRINT "DERE IS THE FINAL 
GAME SCORE:7 


PRINT "THAVE WON7， Ci 7 GAME(S) .7 
PRINT "YOU HAVE WON7' HIy "GAME(S) .7 
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300 


310 
320 
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PRINT AND" Q-(C+H)， 7 GAME(S) 
ENDED IN A TI 也 .7 

PRINT:，PRINT "THANKS FOR PLAYINGIIY 
END 

游戏 记录 如 下 : 

HOW MANY GAMES? 10 

GAME NUMBER 1 

3= 上 OCK...2=SCJIS5OR9...1=PAPER 
1...2...3...WHAT5 YOUR CHOICE? 3 
THls LIS9 MY CHOICE..， 

.. .PAPER 

WOWI 工 WINIII 


GAME NUMBER 2 
3=ROCK...2=SCISSOR9S...1=PAPER 
1...2...3...WHAT'S YOUR CHOICEY? 2 
THIS 1IS MY CHOICE... 

.. .ROCK 

WOWI 工 WINIII 


GAME NUMPBER 3 

3=ROCK ...2=5CIS990: 9 ..1=PAPER 
1...2...3...WHAT'S YOUR CHOICEY7 2 
THIS IS MY CHOICE. . . 

,...PAPER 

YOU WINIII 


GAME NUMBER 4 
3=ROCK...2=SCIS99OR9...1=PAPER 


1...2...3...WHAT'S YOUR CHOICE? 1 
THIS IS9 MY CHOICE..。 

... 人 ROCK 

YOU WINIII 


GAME NUMBER 5 
3=ROCK...2=SCISSOR9S...1=PAPER 
1...2...3...WHAT'S YOUR CHOICE? 3 
THIS IS MY CHOICE. .. 

...SCIS9SORS 

YOU WINIII 


GAME NUMBER 6 
3=ROCK...2=SCISSORS...1=PAPER 
1...2...3...WHAT'S YOUR CHOICEY? 2 
THIS IS MY CHOICE... 

...SCISSORS 

TIE GAME. NO WINNER . 

GAME NUMBER 7 
3=ROCK...2=SCISSORS...1=PAPER 
1...2...3...WHAT'S YOUR CHOICE? 2 
THIS JS MY CHOICE... 

.. .ROCK 

WOWI IT WINII 


GAME NUMBER 8 
3=ROCK...2=9SCIS9ORS...1=PAPER 
1...2...3...WHAT'S YOUR CHOICE? 3 
THIS I9 MY CHOICE..。 
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.. .人 ROCK 

TIE GAME. NO WINNER. 

GAME NUMBER 9 

3=R 人 ROCKE...2=9CISS9OR9S...1=PAPER 
1...2...3...WHAT'S YOUR CHOICE? 1 
THIS IS9 MY CHOICE. .. 


。..ROCK 
YOU WINI! ! ! 


GAME NUMBER 10 
3= 有 人 OCR...2=SCJIS9SORS...1=PAPPER 
1...2...3...WHAT'S9 YOUR CHOICE? 2 


THIS IS MY CHOICE,.. 

.. .ROCK 

WOWIL 1WNITI 

HERE 1S THE FINAL GAME SCORE， 
I HAVE WON 4 GAME(S) 

YOU HAVE WON 4 GAME(S). 

AND 2 GAME(S) ENDED IN A TIE.， 


41。 了 瑟 取 


这 是 一 个 两 人 玩 的 游戏 。 把 若干 物品 分 放 几 堆 ， 如 ， 
XXXxxXxxxxxxXxx 表示 第 一 堆 中 有 10 件 


XXXXXXxxXxxX 表示 第 二 堆 中 有 8 件 
xxxxxxxX 表示 第 三 堆 中 有 7 件 
X X X 表示 第 四 堆 中 有 3 件 
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两 个 人 轮流 取 走 物品 ， 每 次 取 走 的 件数 不 限 ， 但 只 能 从 一 
堆 中 取 (不 得 从 两 堆 或 儿 堆 中 取 》 并 规定 中 的 件数 不 能 超过 该 
堆 中 当 国 的 件 煞 。 

胜 负 的 原则 是 : 第 一 种 方式 规定 谁 拿 最 后 一 件 为 胜 ; 第 二 
种 方式 规定 谁 使 最 后 一 件 为 负 。 游 戏 开 始 时 你 可 以 指定 用 第 一 
方式 还 是 用 第 二 方式 ， 还 可 以 指定 谁 先 取 物 〈 当 计算 机 打印 
4DO YOU WANT TO MOVE FIRST2” ?你 回答 “NO”， 
表示 你 不 先 了 到， 由 计算 机 先 取 ) 。 

下 面 的 例子 是 选择 第 二 方式 。 指 定 分 四 堆 , 第 一 堆 10 件 ， 
第 二 堆 8 件 ， 第 三 堆 7 件 ， 第 四 进 3 件 。 计 算 机 先 取 ， 它 从 第 
三 堆 中 取 走 6 住 ， 所 以 接着 打印 出 的 各 稚 件 数 变 成 第 一 堆 10 
件 ， 第 二 稚 8 件 ， 第 三 进 1 件 ， 第 四 堆 3 件 。 你 打 入 “1,92” ， 
表示 从 第 一 堆 中 取 走 9 件 ， 接 着 计算 机 又 打印 出 你 各 和 计算 机 
取 后 揭 各 堆 的 件数 。 你 再 从 第 二 堆 中 取 走 2 件 ， 计 算 机 从 第 4 
堆 取 走 3 件 ， 计 算 机 又 打印 出 此 时 的 铺 况 。 最 后 你 又 从 第 三 堆 
中 取 走 工件， 此 时 只 有 第 一 、 二 堆 中 各 有 一 件 了 ， 计 算 机 只 要 
任意 让 走 一 件 ， 最 后 的 一 件 只 能 由 钦 来 取 ， 因 此 你 输 了 。 


ENTER WIN OPTION -1 TO TAKE LAST，2 IO 
AVOID LA9ST? 2 
ENTER NUMBER OF PILE9? 4 


ENTER PILE STZS9 


0 


0 


工 
8 
7 
3 


心 co 己 王 


DO YOU WANT TO MOVE FIRST? NO 
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PILE SIZE 


1 10 

2 8 

3 1 

4 3 

YOUR MOVE -PILE,NUMBER TO BE REMOVED 


?1，,9 
PILE SIZ 世 


1 
2 3 
3 1 
4 3 
YOUR MOVE -PILE,NUMBER TO BE REMOVYED 
?2，2 
PILE SIZ 瑟 

工 

2 于 
3 1 
4 0 
YOUR MOVE -PILE,NUMBER TO BE REMOVED 
?3，1 
MACHINE WINS 
DO YOU WANT TO PLAY ANOTHER GAME?NO 
程序 为 : 
400 DIM A(100),B(100,10) ,D(2) 
450 PRINT ENTER WIN OPTION -1 TO TAKE 

LAST，2 TO AVOID LAST7; 
460 JINPUT W 
470 JE W=1 THEN 490 
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IF W《>2 THEN 450 

PR NT ENTER NUMBER OF PILES%， 
INPUT N 

IF N7100 THEN 490 

IF NCL THEN 490 

PRINT "ENTER PILE SIZESY" 
FOR I=1 TO N 

PRINT 1T; 

INPUT AD) 

IF A(D)>2000 THEN 560 

IF A(CD<L THEN 560 

IF _ A(D《 INTIA(GD) THEN 560 
NEXT T 

PRINT "DO YOU WANT TO MOVE FIRST"; 
INPUT Q9$ 

IF Q9$ = "YES" GOTO 1450 

IF Q9$ = "NO" GOTO 700 

PRINT "PLEASE. YES OR NO 
GOTO 630 

IF W=1THEN 940 

LET C=0 

FOR I=1 TO N 

IF A(D) =0 THEN 770 

LET C=C+l 

IF C=3 THEN 840 
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760 LET D(C》=I 

770 NEXT II 

780 JEF C=2 THEN 920 

790 下 AGCDGD))>1 THEN 820 
800 PRINT ”MACHINE LOSESY7 
810 GOTO 1640 

820 PRINT "MACHHNE WINS7 
830 GOTO 1640 

840 工 ET C=0 

850 FOR I=1 TON 

860 IF AGD2>1 THEN 940 

870 JRF AGD=0 THEN 890 

380 ET C=C+Ll 

890 NEXT Ti 

900 jF C/2 >7INTCC/2) THEN 800 
910 GOTO 940 

920 JE AGCD(CG))=1 THEN 820 
930 JE AGOD(C2))=1THEN 820 
940 TOR I=1 TON 

950 LET 蕊 =A(D) 

960 FOR J=0 TO 10 

970 ET FE= 芝 /2 

980 LETLT B(,J) =2x(F-INTGF)) 
990 LET 玉 =INTCF) 

1000 NEXT jJ 

1010 NEXT I 

1020 FOR J=10 TO 0 STEP=-1 
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1030 
1040 
1050 
1060 
1070 
1080 
1090 


1100 


LET C=0 

上 上 上 下- 了 = 

FOR [1=1 TON 

IE PCD=DTERN TtL10 
LET C=C+l 

IF A(CDC=HIHTHEN 1110 
LET 百 =A(D 


1110 NN 岂 


TI120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


JR C/24 >INT(C/2) THEN 1190 
NEXT jJ 

工 上 上 了 世 =INTONsRND(G) +1) 

JIF A(E)E=0O TREEN 1L149 

LET FF=INTIACBE RNDLO) +i) 
LET A(E)= 和 A(E) 一 下 

GOTO 1380 

LET A(G) =0 

FOR J=0 TO 10 

LET B(G,J) =0 

下 世 T CE:0 

FOR TI=1 TON 

IF BGJ)=0THEN 1260 

LET C=C+I 

NEXT 了 

LET A(G) =A(G) +23s5C/2 一 TJNTCC/2))x2 个 了 
NEXT 可 

IFEW=1THEN 1380 
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1300 LET C=0 

1310 FOR I=1 TON 

1320 IF A(CD2>1 THEN 1380 

1330 IF A(GD) =0 THEN 1350 

1340 LET C= Cr+l 

1350 NEXT 

1360 IF C/2( >INT(C/2) THEN 1380 

1370 LET A(G) =1- 和 A(G) 

1380 PRINT "PILE SIZEy 

1390 FOR I=1 TON 

1400 PRINT Il A(D) 

I410 NEXT 1 

1420 IF W=2 THEN 1450 

1430 GOSUB 1570 

1440 IF Z=1 THEN 820 

1450 PRINT "YOUR MOVE -PILE,NUMBER TO BE 
REMOVED" 

1460 INPUT X，Y 

1470 IF X2N THEN 1450 

1480 IF X《1 THEN 1450 

1490 IF XINT(X) THEN 1450 

1500 IF Y7>A(X) THEN 1450 

1510 IF YI THEN 1450 

1520 IF Y >INT(CY) THEN 1450 

1530 LET A(X) =A(X)-Y 

18540 GOSUB 1570 

1550 IF Z=1 THEN 800 
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1560 GOTO 700 

1570 LET Z=0 

1580 FOR I=1 TO IN 

1590 IF A(D =0 THEN 1610 

1600 RETURN 

1610 NEXT 工 

1620 LET Z=1 

1630 RETURN 

1640 PRINT "DO YOU WANT TO PLAY ANOTHER 
GAME"; 

1650 INPUT Q9$ 

1670 IF Q9$ = "YES" THEN 1720 

1680 IF Q9$ = "NO" THEN 1730 

1700 PRINT "PLEASE. YES OR NO 

1710 GOTO 1650 

1720 GOTO 440 

1730 END 


42。 射击 仰角 


炮 的 仰角 如 果 是 45"， 则 射击 的 距离 最 远 ， 如 果 小 于 或 大 
于 45"， 距 离 就 近 些 。 程 序 每 次 随机 地 给 出 炮 的 最 大 射程 〈 在 
20000 码 到 60000 码 之 间 ) ， 杀 伤 范围 为 100 码 。 你 可 以 射 
击 五 次 ， 程 序 每 次 给 出 目标 与 炮 之 间 的 距离 ， 然 后 你 指定 一 个 
射击 的 仰角 ， 计 算 机 会 告诉 你 超过 目标 多 少 码 或 未 到 目标 多 少 
码 。 之 后 你 再 调整 开炮 的 仰角 ， 看 几 次 能 击 中 目标 。 
程序 如 下 ， 
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100 


149 
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PRINT YYODU ARE THR OFEICERN - 
CHARGE，GIVING ORRTRS TO A GLNY 

下 民 1NT “CRE 友 ，TELLESG 开放 M THER 
DEGREES OF ELEVATIDN YOU 了 STEMATEY 
[RNT WILL PLACE A PROJECTILE 
ON TARGET. A HIT WITHEN 100 YARDS7 
PRINT OF THE TARGET WILL DESTROY 
] 工 .7"，PRINTI 

R=JNT(400003RND(0) 二 20000) 

PRINT "MAXIMUM RANGE OF YOUR GUN 
I9 7 R7YARD9S.7 

“=10 

PRINT 

51=:0 

T=INTCRs(.1+ .8sRND(C0)) 

S=0 

GOTO 370 


PRINT 27MINIMUM ELEVATION JIS_ ONE 
DEGREE.7 


GOTO 390 

PRINT ”MAXIMUM ELEVATION IS 89 

D 卫 GR 所 下 S.7 

GOTO 390 

PRINT "OVER TARGET BY7"，ABS(E)， 
“YARDS.7 

GOTO 390 

PRINT "SHORT OF TARGET BY ABSCE)， 
"YARDS.7 


GOTO 390 


320 PRINT asyx TARGE 人 DESTROYED sx 73 
S;"ROUNDS OF AMMUNITION 屯 XPENDED7 

335,S1= Si+S9S 

330 IF Z = 机 工 上 EN 490 

340 Z=7Z+1 

345 也 民 NT 

350 PRINT THE FORWARD OBSERVER 
HAS SIGHTECD MORE ENEMY 
ACTIVITY。..7 

360 GODTO 260 

370 上 RiINT 2ZDISTANCE TO THE TARGET I97 
YARDS.7 

390 PRINT 

400 JINPUT “ELEVATION， B 

420 IF B 59 THEBEN 250 

430 JE BCL THEN 230 

440 S =S+1 

442 JP 926 THEN 450 

444 PRINT，PRNT BOON 1 YOU HAVE 
JUST BEBEN PESTROYEDPV 

446 PRINT ”BY 人 THE ENEMY."，PRINT，PRINT， 
PRINT，GOTOD 495 

450 B2=2*D/57.3，I= RSIN(B2):，X=T-1 

455 蕊 = INT(CXI) 

460 IF ADB5(E)Ci00 THEN 320 

470 JIF E>100 THEN 290 

480 GOTO 270 


490 


492 
493 
495 


500 
510 
520 
999 
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PRINT:，PRINT:，PRINT7TOTAL ROUNDS 
了 EXPENDED WERE:， "5 5S1 

IF S1>18 THEN 495 

PRINT YNICE SHOOTINGI!L，GOTO 500 


PRINT ”BETTER GO BACK TO FORT SILL 
FOR REFRESHER TRAININGJ 


PRINT:， INPUT "TRY AGAIN (Y OR N)0 Z4 

IF Z$="Y" THEN 170 

PRINT "OK. RETURN TO BASE CAMP. 

END 

运行 记录 为 ， 

YOU ARE THE OFFICER-IN-CHARGE， 
GIVING ORDERS TO A GUN 

CREW，TELLING THEM THE DEGREES OF 
ELEVATION YOU ESTIMATE 


WILL PLACE A PROJECTILE ON TARGET， 
A HIT WITHIN 100 YARDS 


OF THE TARGET WILL DESTROY 苯 。 

MAXIMUN RANGE OF YOUR GUN JS 55684 
YARDS . 

DIS9TANCE TO THE TARGET IS 15755 
YARDa3. 

上 LEVATIONY? 9 

OVER TARGET BY 1452 YARDS， 

ELEVATIONY? 8 

SHORT OF TARGET BY 407 YARDS， 

了 上 LEVATIONY? 8 2 


*s##k TARGET DESTROYED >*sx 3 ROUNDS OF 
AMMUNITION EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED 
MORE ENEMY ACTIVITY.。.. 


DISTANGCE TO THE TARGET IS 11349 YARDS。 
ELEVATION? 84 

OVER TARGET BY 241 YARD3S. 

ELEVATION? 84.1 


#y#k 下 ARGET DESTROYED **xk 2 ROUNDS OF 
AMMUNITION EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED 
MORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET 1IS 19146 YARDS。 


ELEVATIONY? 11 

OVER TARGET BY 1713 YARDS。 
ELEVATION? 10 

SHORT OF TARGET BY 102 YARDsS。 


ELEVATIONY? 10.06 
## 下 ARGET DESTROYED *xk 3 ROUNDS OF 
AMMUNITION 卫 XPENDED 


THE FORWARD OBSERVER HAS SIGHTED 
MORE ENEMT ACTIVITY. .. 


DISTANCE TO THE TARGET IS 10792 YARDsS 


ELEVATION? 84.3 
OVER TARGET BY 227 YARD9。 


ELEVATIONY? 84.4 
oj157。 


汪 # 下 ARGE 人 下 .DESTROYED x#x 2 ROUNDS. OF 
AMMUNITION EXPENDED 


THE FORWARD, OBSERVER HAS SIGHTED 
MORE ENEMY ACTIVITY... 
DIS9TANCE TO THE TARGET HIS 36976 YARDS. 


玫 LEVATIOH? 21 
OVER TARGET BY 282 YARDS， 


上 LEVATIONY? 20.8 

水 ## 工 ARGET DESTROYED xxx 2 ROUNDS OF 
AMMUNITION EXPENDED 

TOTAEIROUNDS EXPENDED WERE，12 

NICE SHOOTINGII 

TRY AGAIN (了 YOR N)? N 

OKR。RETURN TO BASE CAMP。 


43。 化 学 爆炸 


把 硫酸 冲淡 成 项 深 湾 ， 必 须 按 三 从 硫 酸 七 份 水 的 比例 相 混 
， 如 果 不 异 祥 样 的 比例 ， 别 溶 容 液 会 革 不 稳 冠 纤 纪 | 起 忆 爆 炸 。 计 


有 芒 配 的 体积 〈 升 ) ， 要 求 你 打 入 应 加 的 水 的 体积 。 如 
果 您 欧 计 算 误 差 超 过 理论 值 5%， 就 货 错 一 次 ， 你 的 生命 就 
芝 到 一 次 成 肪 。 但 你 允 只 能 冒 九 次 险 ， 在 遇 到 第 九 次 威胁 


时 ， 


升 ， 


你 就 武生 了 。 
例如 ， 第 一 次 计算 机 给 出 态 酸 为 32 升 ， 你 回答 加 水 77 
误 莽 <5% ， 正 确 ， 计 算 宙 打出 “GOOD JOB427。 第 二 次 
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硫酸 为 11 升 ， 你 加 水 27 升 ， 误 差 >5%， 错 了 ， 溶 液 发 出 
《 踊 唉 ” 声 〈S1ZZLE) ， 即 将 爆炸 。 
32 LITERS OF KRYPTOCYANIC ACID，，HO 斑 
MUCH WATER? 77 
GOOD JOB! 
11 LITERS OF KRPYTOCYANIC ACID，HOW 
MUCHT WATLER?327 
SIZZLEIYOU HAYVE JU5T BEEN DESALINATED 
INTO A BLOODB 
OF QUIVERING PROTOPLASMI 
HOWEVER，YOU MAY TRY AGAIN WITH 
ANGOTIIRER 开 卫 世 。 
26 工人 ERS OF KRYPYTOCYANIC ACID.、HOW 
MUCH WATER? 28 
9T1ZZEEEI YYOI 末 和 VE TGS BEN 
DESALINATED INTOD 人 瑟 BPOB 
OF QUIVERING PROTOPLASNMI 
HOWEVER，YOU MAY TRY AGATN WITH 
ANOTHER LE 
47 ELITERS OF KRYPTOGYANIC .ACID.HOW 
MUCI WATER7 82 
91IZZLE! YOU HAVE JUST BEEN 
DESALINATED INTO A BLOB 
OF QUIVERING PROTOPLASMI 
HOWEVLER，YOU MAY TRY AGAIN WITH 
ANOTEER LIFE， 
27 LITERS OF ERYPTOCYANIC ACID. HOW 
MUCH WATERY? 63 
GOOD JOBI! 
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5 LITERS OF KRYPTOCYANIC ACID.HOW 
MUCH WATERY? 9 


SIZZLE! YOU HAVE JUST BEEN 
DESALINATED INTO A BLOB 
DEF QUIVERING PROTOPLASMI! 


HOWEVBEBR，YOU MAY TRY AGAIN WITH 
ANOTHER LIFE， 


11 LITERS OF KRYPTOCYANIC ACID. HOW 
MUCH WATERY? 28 

95IZZLE! YOU HAVE JUST BEEN 
DESALINATED INTO A BLOB 

OF QUIVERING PROTOPLASMI! 


HOWEVER YOU MAY TRY AGAIN WITH 
ANOTHER LIFEE, 


48 LITERS OF KRYPTOCYANIC ACID. HOW 
MUCH WATER? 
程序 为 : 
100 A=INTCRND(0)*50) 
110 W =7*A/3 
120 PRINT A "LITERS OF KRYPTOCYANIC 
ACID. HOW MUCH WATERY 


130 INPUT 有 R 

140 D=AB9S(CW -及 ) 

150 IE D>W/20 THEN 200 

160 PRINT "GOOD JOB! ? 

170 PRIJNT 

180 GOTO 100 

200 PRINT "SIZZLEI! YOU HAVE JUST BEEN 
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DESALINATED INTO A BLOB" 
210 PRINT "OF QUIVERING PROTOPLASMI 
220 工 =T+1 
230 JEF T=9 THEN 260 


240 PRINT HOWEVER，YOU MAY TRY AGAIN 
WITH ANOTHER LIFE.7 


250 GOTO 100 


260 PRINT "YOUR 9 LIVES ARE USED，BUT 
YOU WILL BE LONG REMEMBERED FOR 


270 PRINT "YOUR CONTRIBUTIONS TO THE 
FIELD OF COMIC BOOK CHEMISTRY 


280 END 
44。 坐 圈 游 戏 
若干 个 人 围 坐 一 团 , 每 人 有 一 个 号 (1 号 、2 号 、3 号 ……)。 


从 第 一 个 人 开始 数 起 ， 每 数 到 5 时 ， 这 个 人 就 从 圈子 出 来 ， 再 
继续 数 1，2，3…，5， 数 到 第 5 个 人 ， 另 一 个 人 又 出 来 ,凡是 
从 圈子 中 出 来 的 人 的 位 置 就 空 着 ， 下 次 不 再 数 。 如 此 不 断 继续 
数 下 去 ， 直 到 全 部 人 都 从 圈子 出 来 为 止 。 你 能 指出 从 园子 中 出 
来 的 人 的 顺序 吗 ? 如 第 一 个 出 来 的 是 5 号 ， 第 二 个 出 来 的 是 


号 :os 
即 ， 
ORDER (次 序 ) NO.〈 号 码 ) 


5* 《第 一 个 出 来 的 是 5 号 ) 
10+ (第 二 个 出 来 的 是 10 号 ) 


们 心情 
5 
非 
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6 9 业 
7 4# 
8 13# 
9 工 2## 
10 3 共 
11I 7 间 
12 1 二 
T3 6 砷 

程序 如 下 : 

5 M=13 

8 N=5 

10 DIM A(MY 

20 FOR I=1 TO M 

30 AAA(D = 民 

406 NEXTI 

80 9 二 0 

60 PP=0 

65 了 RINT "ORDERRY，xNO.7 

70 FOR I=1 TO M 

80 3939=3+A(D 

90 JPFSC NTHEN 110 

100 GOSUB 130 

114 NEBEXT 工 

120 GOTO 70 

130 9=0 

140 A(U =0 


150 P=P+1 

160 PRINT P，I oa 

170 IF P=M THEN 999 

180 RETURN 

999 END 

可 以 通过 改变 5 语句 和 8 语句 来 改变 M 和 N， 父 如 95 
人 围 圈 ， 每 数 到 第 7 时 ， 此 估量 围 。 


5 M=95 
8 N=7 


也 可 以 用 键盘 笨 入 M、N， 这 样 使 用 更 灵活 ， 
5 INPUT M，N 
取消 8 语句 。 


45。 皮球 弹 跳 


用 计算 机 模拟 一 个 皮球 的 弹跳 ， 你 可 以 任 闪 指定 皮球 上 抛 
的 初始 速度 ， 然后 皮球 年 直 下 落 ， 著 地 后 又 弹 起 问 上 跳 。 你 偿 
可 以 指定 球 扔 ee ( 它 应 该 水 地 1 ) 。 计 算 机 用 图 来 表示 
叶 间 与 高 度 的 关系 ， 以 槛 坐 颖 表示 时 间 〈 秒 ) ， 纵 坐标 表示 次 
( 米 ) 。 We 时 间 带 

点 ， 一 般 指 定 增 为 0.1 秘 。 


THIS SIMULATION LETS YOU SPECIFY THE 
INITIAL VELOCITY OF A BALL THROWN 
STRAIGHT UP，AND THE COEFFICIENT OF 
匡 LASTICITY OF THE BALL. 

PLEASE USE A DECIMAL FRACTION 
COEFEFICIENCY (LESS THAN 1). 

YOU ALSO SPECIFY THE TIME INCREMENT 


TO BE USED IN "STROBING' THE BALL“S 
FLIGHT (TRY.1 INITIALLY) 


TIME INCREMENT(SEC)? .1 
VELOCITY (FP9)? 30 
COEFFICIENT ?.9 


tD ”二 
己 


定 
局 呈 


己 


2 号 
3 

3 吓 
里 
避 


Cetbow 中 旧 . 虽 oo 
己 


k 
心 、 
Cn 
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100 
105 


110 


115 


DIM T(20) 

PRINT "THIS SIMULATION LETS YOU 

SPECIFY THEY” 

PRINT " INITIAL VELOCITY OF A BALL 
THROWNY 

PRINTY" STRAIGHT UP，AND THE 
COEEFFICIENT OFY7 

PRINT "ELASTICITY OF THE BALL.7 

PRINT "PLESASE USE A DECIMAL 
FRACTIONY 

PRINT "COEFFICIENCY (LE9S THAN 1).7 

PRINT 

PRINT "YOU ALSO SPECIFY THE TIME 

INCREMENTY7 

PRINT "TO BE USED IN "STROBING'” THE 
BALL'97 

PRINT “FLIGHTCTRY .1 IJNITIALLY)。! 

PRINT 

INPUT "TIME INCREMENT (SEC)"，S2 


150 INPUT VELOCITY (MPS) V 


170 
180 
186 
190 
200 
210 


INPUT "COEFFICIENT"，C 
PRINT 
S1=INT(70/(V/(16*S2))) 
FOR I=17TO Sl 

TO =VxCT(G-1)/16 
NEXT 1 
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FOR H=JNT(-16*(V/32) 个 2+V 人 2/32+ .5) TO 
0 STEP- .5 


IF INTCOH >H THEN 225 
PRINT 互 ; 
工 =0 
FOR I=1 TO 5S1 
FEOR T=0TOTGD) STEP S2 
5 工 =L+S2 
IF ABSCGH=- (.5s( 一 32)xT 个 2+VaeC 人 (IT-1)*T)) 


盖 .25 下 HEN 270 

PRINTL TAB(GL/52)， 707， 
NE 已 X 个 工 

工 =T(I+1)/2 

IF 一 16s 了 个 2+VxC 人 (GT-TLsT<H THEN 290 
NEXT j 

PRINT 

NEXT 五 

PRINT TAB(1)， 

FOR TI=1TOINTGIEL+1)7/S2+1I 
PRINT 7 .7 

NEXT [ 

PRINT 

PRINT ”07; 

FOR I=1 TOINTGIL+.9995) 
PRINT TABCONT(LLS2)) 
NEXT 工 

PRINT 


420 PRINT 
430 GOTO 135 
440 上 ND 


46。 配 排 序 


计算 机 给 出 9 个 一 位 整数 ， 请 你 在 尽 可 能 少 的 次 数 内 把 它 
按 顺 序 排 列 好 。 办 法 是 :你 向 计算 机 打 入 一 个 数 a， 计 算 机 就 
会 将 原 数列 中 第 n 个 数 〈 从 左 获 起 ) 以 左 的 mn 个 数 倒 过 来 排 
列 。 假 如 原 数 列 为 : 
234516789 
你 如 果 打 入 “42?，, 则 前 面 四 个 数 的 次 序 便 倒 过 来 ， 数 列 变 成 : 
543216789 
若 再 打 入 “5”， 则 成 了 : 
1234567 8 9 
这 样 就 实现 了 按 顺 席 排 列 的 目的 。 你 能 在 几 次 之 内 达到 这 一 目 
的 ? 若 你 想 停 止 ， 可 打 入 “0”。 
NO DOUBT YOU WILL LIKE THIS GAME,BUT 
IF YOU WANT TO QUIT，REVERSE 0 (ZERRO)， 
HERE WE GO ... THE LIST iS， 
2 4519 .63 7 8 
HOW MANY SHALL T REVERSE? 9 
838736915 4 2 
HOW MANY SHALL T REVERSEY? 4 


6 3 7 8 有 9 1 5 4 2 
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HOW 


MANY SFHALL 
7 3 6 1 
MANY SHALL 
5 1 6 3 
MANY SHALL 
2 6 
MANY SHALEL 
4 5 6 3 
MANY SHALL 
5 4 2 1 
MANY SHALL 
6 :3 :2 了 
MANY SHATL 
4 3 2 1 
MANY SHITALL 


3 4 5 6 


hy 


REVERSEY? 
5 4 2 
REVERSE? 
7 8 9 
REVERSE? 
7 8 9 
REEVERSE? 
7 8 9 
REVERSE? 
7 8 9 
REVERSE? 
7 3. .39 
REVERSE? 
7 8 9 
R 开 VERSE? 


7 8 9 


YOU WON IT IN 10 MOVESIII 


TRY AGAIN (YES OR NO)?7 NO 


O. 攻 HOPE YOU HAD FUMII 
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100 
140 
150 
200 


210 


220 
230 


260 
280 


310 


DIM A(20) 

REM *x*k N=NUMBER OF NUMBERS9S 
N=9 

REM *#x MAKE A RANDOM LIST A(1) 
TO ACN) 

A(1)=1INTICN-1)x<*RND(O) +2) 

FOR 攻 =2 TON 
A(K)=1INTONxRND(CO)+1) 

FOR J=1 TO -1 

IF AGK)=A(GJ) THEN 230 

NEXT J，NEXT 开 

REM xxx PRINT ORIGINAL LIST AND STARTI 
GAME 


PRINT:，PRINT "HERE WE GO ..。T 工 世 
EIST Te 7 

工 =0 

GOSUB 610 

PRINT "HOW MANY SHALL IREVERSE7; 


INPUT 

JIFE R=0THEN 520 

IF R=N THEN 390 

PRINT "DOPSI1 TOO MANYI ICAN REVERSE 
AT MOST7 N，GOTO 330 

T=TI+1I 

REM xsx 人 EVRESE R NUMBERS AND PRINT 
NEW LIST 

FOR 必 =1 TO INTCR7/2) 


。169。 


420 Z= A(K) 

430 A(K) =A(CR-K+1l) 

440 A(R -K+1) =Z 

450 NEXT 天 

460 GOSUB 610 

470 REM xx x CHECK FOR A WIN 

480 FOR K=1 TON 

490 IF A(K)《 >K THEN 330 

500 NEXT 区 

510 PRINT "YOU WON IT IN T; "MOVESIID 

520 PRINT 

530 PRINT "TRY AGAIN (YES OR NO) 1" 

540 INPUT Ag$ 

550 IF AS$-="YES" THEN 210 

560 PRINT，PRINT "0.K. HOPE YOU HAD 
FUNI!I7，GOTO 999 

600 REM xx yx SUBROUTINE TO PRINT LIST 

610 PRINT:， FOR 区 =1 TO N，PRINT A(K); 

615 NEXT 开 

650 PRINT，PRINT，RETURN 

999 END 


47。 数 散 点 


计算 机 产生 两 个 仍 子 的 图 案 , 它 们 表示 出 每 个 骨 子 的 点 数 ， 
然后 问 你 “两 个 仍 子 的 点 数 之 和 =? ”， 你 答 得 对 ， 就 打印 出 
“RIGHT”， 你 答 错 了 ， 让 你 再 答 一 次 ， 还 未 答对 ， 计 算 机 
.170 。 


就 会 


告诉 你 是 多 少 。 
这 个 游戏 可 以 用 于 幼儿 练习 数 点 子 用 。 


[ * *#* 
TI xx # 
十 
Tv 

[ 关 

[ 党 j 
=? 7 

RIGHTI 


TBE DCE ROLL AGAIN..。 


人 1 
1 1 
| | 
十 
和 
本 


NO，COUNT THE SPOTS AND GIVE ANOTHER 
ANS W 瑟 民 


*。17f。 


=? 5 
NO，THE ANSWER I9 7 


THE DICE ROLL AGAIN.。。 


人 
I 一 一 


一 一 一 一 


om 


HH 
米 
米 
hm 


RIGHTI 

程序 如 下 ; 

100 N=N+LI 

110 D=INT(6* RND(O+DI) 
120 PRINT" -~ ---- 7 
130 IF D =1 THEN 200 
140 IF D=2 THEN 180 
150 IF D=3 THEN 180 
160 PRINT 红 x 闪 JI 
170 GOTO 210 

180 PRINT IT x 了 
190 GOTO 210 

200 PRINT 了 
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210 IF D=2 THEN 260 
220 IF D=4 THEN 260 
230 IF D=6 THEN 270 
240 PRINT ZI # JI 
250 GOTO 280 

260 PRINT 好 7 
265 GOTO 280 

270 PRINT ?IT 类 关 [7 
280 IF D=1 THEN 350 
290 IF D=2 THPN 330 
300 JF D=3 THEN 330 
310 PRTINT ? 关 兴 JI 
320 GOTO 360 

330 PR NT 刀 关 了 7 
340 GOTO 362 


350 PRINT TI 
360 PRINT "一 ------- 尹 
370 PRINT 


375 JjF N=2 THEN 500 
380 PRINT ” +7 

381 PR NT 

400 A =D 

410 GOTO 100 

500 T=D+A 

510 PRINT 7 三 
520 INPUT Ti1 

530 IF T1=TTTHEN 590 


"173。 


540 PRINT "NO，COUNT THE SPOTS AND 
GIVE ANOTHER ANSWER.7 

541 PRINT 三 3 

550 INPUT T2 

560 IF T2= 工 THEN 590 

570 PRINT "NO，THE ANSWELER 1S73 工 

580 GOTO 600 

590 PRINT 7R5GHCTI7 

600 PRINT 

601 PRINT ?THE DICE PROLL AGAIN...7 

610 PRINT 

615 N=0 

620 GOTO 100 

999 上 END 


48。 获 双 睹 


同时 掷 两 个 藤子 看 它们 的 点 数 之 和 ， 如 果 第 一 次 掷 后 两 个 
般 点 数 之 和 是 7 或 11， 则 筑 星 利 ， 胜 一 次 得 100 分 ;如果 点 
数 之 和 是 2、3 或 1、2 ， 则 复 答 , 输 一 次 减 100 分 : 如 果 是 
4、5、6、8、9、10， 就 要 重 掷 。 如 果 第 二 次 拓 的 结果 等 于 你 
刚才 黎 一 次 得 到 的 点 数 和 ( 即 4、5.6、8、9、10 中 之 一 ， 
壁 如 第 一 次 得 6 ， 第 二 次 也 得 6 ) 则 算 顾 ， 得 双 倍 分 即 200 分 ; 
如 果 得 7 ， 则 算 输 。 

开始 时 ， 你 的 分 数 为 0。 胜 “〈 负 ) 一 次 后 ， 计 算 机 问 你 是 
否 再 玩 下 一 次 ， 你 打 入 “127” 悄 示 玩 ， 打 入 “22” 表 示 不 再 玩 ， 
这 时 计算 机 就 会 打印 出 游戏 的 总 结 了 。 

50 LET R=0 
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下 =100 
PRINT 


PRINT 7 WILL NOW THROW THE DICE"” 


已 =INT(G7*RND(0)) 
5=JINT (7x*RND(0)) 
X = 也 +9 

IF X=0THEN 90 
IF X=1 THEN 90 
IF X=7 THEN 270 
IF X=11 THEN 270 
IFX=2THEN 300 
IF X=3THEN 350 
IF X=12 THEN 350 
IF X=4T 了 THEN 420 
IF X=5 THEN 420 
IE X=6THEN 420 
IF X=8 THEN 420 
IF X=9THEN 420 
IE X=10 THEFN 420 


PRINT X ”MATURAL.... 


PRINT X YYOU WIN ”3 开 
GOTO 390 


PRINT XI”SNAKE 下 YES.. 


PRINT7 YOU LOSE 7 
=0 一 下 

PRINT 

GOTO 390 


A WINNERIII7 


..YOU LOSEY7 
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370 
390 


ed76。 


PRINT X， ”CRAPS..... YOU LOSE" 
PRIJINT7YYOU LOSE ”5 下 

FE=0- 耻 

R=R+E 

GOTO 650 

PRINT X， 7" POINT II WILL ROLL AGAIN7 
豆 =INT(G7*RND(0)) 

Q=INT(7*RND(0)) 

W=H+Q 

IF W=1THEN 430 

IE W=7 THEN 520 

IF W=0THEN 430 

IF WwW=XTHEN 580 

PRINT Wi NO POINT ITWILLROLL AGAINY7 
GOTO 430 

PRINT W; ”CRAPS YOU LOSEY 
PRIJINT7YYOU LOSE 2 下 

FE=0- 耻 

GOTO 390 

GOTO 650 

PRINT XI” A WINNER..... CONGRATSIIIY 


PRINT Xi AT 2 TO 10ODDS PAYS YOU 。。 
LET ME SEE...5 2xF 

下 =2#x 下 

GOTO 390 


IF R<0o THEN 680 
IF R>0 THEN 700 


670 
680 
690 
700 
710 
720 
730 
740 


750 
760 
770 
780 
790 
800 


810 
820 


830 


840 


850 
870 


IF R=0 THEN 720 

PRINT7YOU ARE UNDER ”5 一 下 
GOTO 730 

PRINTI7YOU ARE NOW AHEAD ;及 
GOTO 730 

PRINT7YOU ARE NOW EVEN AT 07 
PRINT 


PRINT7IE YOU WANT TO PLAY AGAIN 
PRINT 1 IE NOT PRINT 27; 


INPUT M 

IF M=l THEN 60 

IF R<0O THEN 800 

IF R>0 THEN 820 

IF R=0THEN 840 

PRINT7TOO BAD，YOU AREIN THE HOLE。 
COME AGRIN; 7 


GOTO 850 
PRINT7YCONGRATULATIONS3- 一 一 -YOU 
CAME OUT A WINNER.， COME AGAINIY7 
GOTO 850 
PRINT7YCONGRATULATIONS- -一 -YOU 


CAME OUT EVEN，NOT BAD FOR AN 
AMATEURY 

PRINT 

上 END 


游戏 记录 如 下 : 
I WILL NOW THROW THE DICE 


“ 177" 


6 POINT 1 WILL ROLL AGAIN 

4 NO POINT 1 WILL ROLL AGAIN 

11 NO POINT I WILL ROLL AGAIN 

12 NO POINT I WILL ROLL AGAIN 

8 NO POINT ] WILL ROLL AGAIN 

11 NO POINT 1 WILL ROLL AGAIN 

2 NO POINT L WILL ROLL AGAIN 

8 NO POINT LI WILL ROLL AGAIN 

NO POINT LI WILL ROLL AGAIN 

NO POINT 1I WILL ROLL AGAIN 

A WINNER.....CONGRATSII1 

AT 2 TO 1 0ODDS PAYS YOU...LET ME SEE 
52200 

YDU ARE NOW AHEAD 200 

IF YOU WANT TO PLAY AGAIN PRINT 1 IF 

NOT PRINT 2? 1 


G @ 轧 1 co 


LI WILL NOW THROW THE DICE 
9 POINT 工 WiLL ROLL AGAIN 
4NO POINT [ WILL ROLL AGAIN 
8 NO POINT [WILL ROLL AGAIN 
6 NO PDINT 上 WILL ROLL AGAIN 
7 CRAPS YOU LOSE 

YOU LOSE 100 

YOU ARE NOW AHEAD 100 


IF YOU WANT TO PLAY AGAIN PRINT 1 IE 
NOT PRINT 2? 1 
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TI WILL NOW THROW THE DICE 

8 POINT I WILL ROLL AGAIN 

9 NO POINT [ WILL ROLL AGAIN 

9 NO POINT T WILL ROLL AGAIN 

8A WINNER..... CONGRATSIL 

8 AT2TO1ODDS PAY9S9 YOU...LET ME SEE 


...200 

YOU ARE NOW AHEAD 300 

]F YOU WANT TO PLAY AGAIN PRINT 1 IE 
NOT PRINT 2? 1 

TI WILL NOW THROW 工 甩 攻 DICE 

3 CRAPS .... YOU LOSE 

YOU LOSE 100 

YOU ARE NOW AHERD 200 


IF YOU WANT TO PLAY AGAIN PRINT 1 IF 
NOT PRINT 2? 2 


CONGRATULATIONS--- 一 -YOU CAME OUT 
A WINNER. COM，AGAINI 


49。 玩 扑克 


这 是 一 个 模拟 猜 扑 克 点 数 的 游戏 。 由 计算 机 代 你 所 嵌 了 两 
张 扑 克 牌 ， 然 后 你 决定 和 打 入 这 次 的 胜 ( 负 ) 所 加 ( 沽 ) 的 分 数 。 
计算 机 再 模拟 产生 一 个 扑克 牌 的 点 数 ， 如 果 它 的 点 煞 正 好 落 在 
你 的 二 张 牌 的 点 数 范围 之 内 ， 算 你 语 ， 否则 为 你 输 。 
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本 程序 规定 开始 时 你 的 分 数 定 为 100， 如 果 你 想 改变 这 个 
值 ， 可 以 改变 110 语句， 使 Q 大 于 或 小 于 100。 

如 桌 你 的 分 数 全 输 光 了 ， 此 游戏 则 结束 一 局 。 然 后 计算 机 
询问 你 要 不 要 再 玩 一 次 ? 如 要 ， 和 亲 入 “ YES”， 否 则 ， 打 入 
“NO”， 游 戏 就 结束 了 。 

下 面 是 游戏 记录 : 

YOU NOW HAVE 100 

HERE ARE YOUR NEXT TWO CARDS 

2 

9 

WHAT IS YOUR BET，。，25 

QUEEN 

SORRY，YOU LOSE 

YOU NOW HAVE 75 

HERE ARE YOUR NEXT TWO CARDS 

4 

10 


WHAT IS YOUR BET?25 
10 

SORRY，YOU LOSE 
YOU NOW HAYVE 50 


HERE ARE YOUR NEXT 个 WO CARDS 
6 
10 


WHAT IS YOUR BET?20 
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10 


SORRY，YOU NOW HAVE 30 


HERE ARE YOUR NEXT TWO CARDS 


9 

JACK 

WHAT IS YOUR BET?0 

CHICKENI!I 

程序 为 

100 N=100 

110 Q = 100 

120 PRINT7YOU NOW HAVE " Q 

130 PRINT 

140 GOTO 260 

210 Q=Q+M 

220 GOTO 120 

240 Q=Q-M 

250 GOTO 120 

260 PRINT7HERE ARE YOUR NEXT TWO 
CARDS9SY7 

270 A=IJINT(I4x*RND(0))+2 

280 IF A(2 THEN 270 

290 IF A>14 THEN 270 

300 B=INT(14x*RND(0)) 士 2 

310 IF B(2 THEN 300 

320 IF B>14 THEN 300 

330 IF A>=B THEN 270 

350 IE AL1 THEN 400 
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370 


IF A=ll THEN 420 
IE A=12 THEN 440 
IF A=13 THEN 460 
IF A=l4THEN 480 
PRINT A 

GOTO 500 
PRINT7JACKY 
GOTO 500 
PRINT7QUEENY7 
GOTO 500 
PRINTY7KINGY7 
GOTO 500 
PRINT7ACEY 

IF Bcll 了 THEN 550 
IF B=11 THEN 570 
JPF B=12 THEN 590 
IFEB=1l3THEN 610 
IF B=l4 THEN 630 
PRINT B 

GOTO 650 
PRINT7YJACKY 
GOTO 650 
PRINT7ZYQUEENY 
GOTO 650 
PRINT7KINGY7 
GOTO 650 
PRINT7ACEY 


750 
760 
770 


810 
820 


840 


860 
870 
880 


PRINT 

INPUT7WHAT IS YOUR BET7" M 
IF M4 20 THEN 680 
PRINTIYCHICKENIIY7 

PRINT 

GOTO 260 

JP MGC=Q THEN 730 
PRINT7SORRY, MY FRIEND BUT YOU BE 
TOO MUCHY 

PRINT7YOU HAVE ONLY Qi7TO BETY7 
GOTO 650 
C=INT(GI4*RND(0))+2 

IE C42 THEN 730 

IF C214 THEN 730 

IF CI THEN 810 

IF C=1ll1 THEN 830 

IF C=12 THEN 850 

JPF C=13 THEN 870 

IF C=14 THEN 890 

PRINT C 

GOTO 910 

PRIJNT7JACKY7 

GOTO 910 

PRINT7QUEENY7 

GOTO 910 

PRINTYKINGY 

GOTO 910 
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890 PRINT ACE" 
900 PRINT 
910 IF C>A THEN 930 
920 GOTO 970 
30 JE C>?=B THEN 970 
950 PRINT?7 YOU WINIIIY7 
960 GOTO 210 
070 PRINT7SORRY，YOU LOSEY 
980 IF MXQ THEN 240 
990 PRINT 
1000 PRINT 
1010 PRINT7SORRY，FRIEND BUT YOU BLEW 
YOUR WADY7 
1020 INPUT7TRY AGAIN (YES OR NO)0 A$ 
1030 IF A$=7YPES7 THEN 110 
1040 PRINT7OK HOPE YOU HAD FUN7 
1050 END 


50。 出 牌 


由 计算 刀 模 拟 两 个 人 比 出 牌 的 大 小 ， 计 算 机 先 给 你 随机 地 

分 一 张 牌 。 例 如 S -7， 表 示 SPADE -7 ( 黑 桃 7) ，D - 开 

表示 Diamond - 开 ( 方 块 K)，C 为 梅花 ， 再 为 红心 。 另 外 又 

给 计算 了 仿古 大 了 然后 比较 这 两 张 牌 的 大 小 , 胜 者 得 1 

。 每 次 计算 机 会 打印 出 你 和 计算 机 两 方 中 哪 一 方 胜 ， 并 将 以 

前 各 次 得 分 村 加 后 打印 出 来 。 最 后 问 你 是 否 想 继 综 殉 下 去 ， 你 
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如 想 继续 玩 ， 打 入 “YES?”， 否 则 打 入 “NO”。 当 用 完 52 
张 牌 〈 即 比 完 26 次 ) 后 本 游戏 结束 。 


YOU:， S-10 COMPUTER:， S-? 

YOU WIN. YOU HAVE 1，COMPUTER HAS 0 

DO YOU WANT TO CONTINUE? YES 

YOU: S-9 COMPUTER，H-J 

COMPUTER WINS !I YOU HAVE 1,COMPUTER 
HAS 1 

DO YOU WANT TO CONTiNUE? YES 

YOU:， S-5 COMPUTER:，D-3 

YOU WIN.YOU HAVE 2,COMPUTER HAS 1 

DO YOU WANT TO CONTINUE? YES 

YOU: S - 开 COMPUTER:， H-Q 

YOU WIN. TOU HAVE 3，COMPUTER HAS 1 

DO YOU WANT TO CONTINUE? YES 

YOU:，C-10 COMPUTER:，C-8 

YOU WIN. YOU HAVE 4，COMPUTER HAS 1 

DO YOU WANT TO_ CONTINUE? YES 

YOU: H-5 COMPUTER:，C-5 

TIE。NO SCORE CHANGE. 

DO YOU WANT TO CONTINUE? YES 

YOU:，H-A COMPUTER:，S-4 

YOU WIN. YOU HAVE 5，COMPUTER HAS 1 

DO YOU WANT TO CONTINUE? YES 

YOU:， D -K COMPUTER:，C- 开 

TIE. NO SCORE CHANGE， 
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DO YOU WANT TO CONTINUE? YES 


YOU:， C-3 COMPUTER:， C-9 

COMPUTEKR WINS!!! YOU HAVE 5,COMPUTER 
HAS 2 

DO YOU WANT TO CONTINUE? YES 

YOU: 卫 -7 COMPUTER:，C -=- 尺 

COMPUTER WINS!I!! YOW HAVE 5,COMPUTER 
HAS 3 

DO YOU WANT TO CONTINUEY? YES 

程序 为 


200 DIM A$(52)， 开 (54) 

240 FOR I=1 TO 52 

250 READ A$(D) 

260 NEXT 

270 REM 

280 FOR J=1 TO 52 

290 LET L(J) =INT(52x*RND(0)) +1 
295 IF J=1 THEN 350 

300 FOR KK=1 TO J=-1 

310 IF LCGK) >L(GJ) THEN 340 
320 人 匡 M 

330 GOTO 290 

340 NEXT 开 

350 NEXT J 

360 已 =P+1 

370 M1=L(CP) 
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P=P+l 

M2=L(P) 

PRINT 

PRINT "YOU，4A$CM1)， "COMPUTER:， 久 
A$(CM2) 

N1=INTCCOM1- .5)/4) 

N2=INT(CCOM2- .5)/4) 

IF N1> =N2 THEN 490 

Al1=Al+1l 

PRINT _ "COMPUTER WINSI!! YOU HAVEV; 
Bl1;7"，COMPUTER HAS7" Al 

GOTO 540 

IF N1=N2 THEN 530 

B1=Bl+1l 

PRINT "YOU WIN. YOU HAVE7";B1; 

" COMPUTER HAS7"A1 

GOTO 540 

PRINT "TIE. NO SCORE CHANGE.7 

IF LIP+1)=0 THEN 610 

PRINT "DO YOU WANT TO CONTINUEO5 


) INPUT V$ 


IF V$="YE9S" THEN 360 

IF V$=7"NO" THEN 650 

PRINT "YE9S OR NO，PL 卫 ASE， /5 
GOTO 540 

PRINT 

PRINTI 
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630 PRINT "YOU HAVE RUN OUT OF CARDS. 
FINAL SCORE， YOU 一 与 Bli 

640 PRINT "5 COMPUTER 一 汪 Al 

650 PRINT "THANKS FOR PLAYING， 1T 机 AS 
FUN." 

660 DATA "S-2"，"H-2"，"C-22，"D -2 
“S 一 37， 7 了 开 一 37， 9 7D 一 37 

670 DATA "S-4，"H-4，"C-42，7D-4， 
/9S 一 57， “再 一 57， 7C 一 57， YT) 一 57 

f680 DATA "9 一 67， /了 开 一 67， ”C 一 67， “了 D 一 67， 
4 “HL 一 7 ， 〈C 一 77， TD) 一 77 

690 DATA "9 一 87， Z 开 一 87， IC 一 805 7D 一 8 ， 
7 仿 一 97， HT 一 97， CC 一 97， 7D 一 97 

700 DATA 7S-10"，"H-10"，"C-10"，"D -10"， 
/9 一 本 ， “了 开 一 J7， 放 人 全 /TD 一 本 7 

710 DATA "9 一 Q"， "H--Q7"， 7C 一 Q7， ”D -Q7"， 
7S 一 开 ”， "HI 一 玫 "， C - 开 "， D-KY7 

720 DATA ”9 一 A 人 7"， 7 五 一 A7， "C 一 Av， D 一 Ar 

999 END 


51。 打 政 舰 


敌 方 有 一 个 舰队 布置 在 6 x 6 的 阵地 内 ， 这 个 舰队 包括 六 
艘 舰 ， 两 稻 驱 逐 舰 〈destroy) ,以 数字 “1” 和 “2” 表 示 之 ,每 
艘 驱逐 舰 占 两 个 单位 长 度 。 两 艘 巡洋舰 〈cruiser) ， 以 “32” 和 
“4 表示 之 ,每 艘 占 三 个 单位 长 度 。 两 艘 航空 母 舰 (aircraft) 以 
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45” 和 “62 表示 之 ， 每 舰 占 四 个 单位 长 度 。 


所 ce 匀 中 


开始 时 ， 计 算 机 布防 。 然 后 您 攻击 对 方 , 打 和 两 个 数字 (中 
间隔 以 逗号 ) ， 表 示 攻 击 其 一 位 置 ， 如 “3，4” ， 表 示 横 轴 
(X 轴 ) 为 3 、 纵 铀 〈Y 轴 》 为 4 。 讨 算 机 会 告诉 你 打 中 了 没 
有 ? 打 中 哪 一 稻 舰 ? 您 可 以 连续 打 。 当 你 把 整个 一 稻 舰 全 打 
中 ， 计 算 抽 就 会 等 诉 您 把 什 么 题 打 沉 了 ， 并 告诉 你 ， 发 射 的 炮 
弹 中 没有 命中 的 和 命中 的 数目 之 比 ， 即 没命 中 的 数 /命中 的 数 。 
最 后 全 部 击 沉 敌 舰 时 ， 统 计 出 你 的 上 途 比 率 (SPLASH7HIT 
RATIO) ， 当 然 这 个 比率 愈 低 愈 好 。 

游戏 开始 时 ， 计 算 机 打印 出 一 张 示 意 锅 给 你 看 ， 使 你 明白 
舰队 设置 的 办 法 。 

THE FOLLOWING CODE OF THE BAD GUYS' 

FLEET DISPOSITION 
HAS BEEN CAPTURED BUT NOT DECODED， 


000 2 2 6 
044 4 6 0 

5 006 00 (这 仅 是 示意 图 ， 并 非 
5 0600 3 在 游戏 时 按 此 布防 ) 
5 1000 3 

50100 3 


START GAME 

? 1，,1 

A DIRECT HIT ON SHIP NUMBER 6 (〈 击 中 “6?) 

TRY AGAIN. 

?了 4 1 

A DIRECT HIT ON SHIP NUMBEL 3 ( 击 中 “3?) 

TRY AGAIN. 

3 5 

A DIRECT HIT ON SHIP NUMBER 3 〈 击 中 *3?) 

TRY AGAIN， 

? 6，,1 

A DIRECT HIT ON SHIP NUMBER 3 〈 击 中 234) 

AND YOU SUNK IT， HURRAH FOR THE GOOD 
GUYS， ( 击 沉 "37 ) 

SO FAR，THE BAD GUYS HAVE LOST 

0DESTROYER(S)， 1 CRUISER(S)，AND 0 
AIRCAFT CARRIER(S) ， 

YOUR CURRENT SPLASH/HIT RATIO IS 0 


? 2;:1 

SPLASHI! TRY AGAIN， (未 击 中 ) 

? 1，,2 

A DIRECT HIT ON SHIP NUMBER 2 ( 击 中 “22) 
TRY AGAIN. 

? 1;,3 


A DIRECT HIiT ON SHIP NUMBER 2 ( 击 中 “22) 
AND YOU SUMK IT. HURRAH FOR THE GOOD 
GUYS， ( 击 沉 "27) 
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SO FAR，THPR BAD GUYS HAVE LOST 

1 DESTROYER(S)， 1 CRUISER(S)， AND 0 
AIRCRAFT CARRIER(S) . 

YOUR CURRENT SPLASHV/HIT RATIO I93.166667 

?了 3，7 

INVALID INPUT. TRY AGAIN. 

? 3,6 

A DIRECT HIT ON SHIP NUMBER 5 

TRY AGAIN. 

? 4，,6 

A DIRECT HIT ON SHIP NUMBER 5 

TRY AGAIN， 

? 5,6 

A DIRECT HIT ON SHIP NUMBER 5 

TRY AGAIN. 

? 6，,14 

A DIRECT HIT ON SHIP NUMBER 1 

TRY AGAIN. 

? 6,6 

A DIRECT HIT ON SHIP NUMBER 5 

AND YOU SUNK IT. HURRA 下 FOR THE GOOD 
GUYS9 

5O0O FAR，THE BAD GUYS HAVE LOST 

1 DESTROYER(S)， 1 CRUISER(S)，AND 1 
AIRCRAEFT CARRIER(S) . 

YOUR CURRENT SPLASHV/HIT RATIO IS .090909 

? 3,4 
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SPLASH! TRY AGAIN， 

3? 2，2 

A DIRECT HIT ON SHIP NUMBER 6 

TRY AGAIN. 

?3 3，,3 

A DIRECT HIT ON SHIP NUMBER 6 

TRY AGAIN， 

? 4，,4 

A DIRECT HIT ON SHIP NUMBER 6 

AND YOU SUNK IT。HURRAH FOR THE GOOD 
GUYS9 

SO FAR，THE BAD GUYS HAVE LOST 

1 DESTROYER(S)， 1 CRUISER(S)，AND 2 
ATJRCRAEFET CARRIER(CS) 。 

YOUR CURRENT SPLASH/HIIT RATIO TS .142857 

?3 6，,4 

YOU ALREADY PUT A HOLE IN SHIP NUMBER 
1 AT THAT POINTI. 

SPLASH! 个 RY AGAIN. 

? 5,5 

A DIRECT HIT ON SHIP NUMBER 1 

AND YOU SUNK IT. HURRAH FOR THE OOD 


GUYS， 
SO FAR， THE BAD GUYS HAVE LOST 
2 DE9TROYER(S)， 1 CRUISER(S)，AND 2 


AIRCRAFT CARRIER(S) . 
YOUR CURRENT SPLASHVHIT RATIO IS .2 
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了 2,3 

A DIRPCT HIT ON SHIP NUMBER 4 

TRY AGAIN. 

? 2,4 

A DIRECT HIT ON SHIP NUMBER 4 

TRY AGAIN， 

? 2， 

A DIRECT HIT ON SHIP ON SHIP NUMBER 4 

AND YOU SUNK IT. HURRAH FOR THE GOOD 
GUYS9， 

SO FAR，THE BAD GUYS HAVE LOST 

2 DESTROYER(S)， 2 CRUJISER(S)，AND 2 
AIRCRAFT CARRIER(S) . 

YOUR CURRENT SPLASHIVHIT RATIO IS .166667 


YOU HAVE TOTALLY WiPED OUT THE BAD 
GUYS'” 下 工 忆 民 
WITH AENALSPLASH/HIT RATIO OF .166667 


炒米 闪 放 闪闪 放 闪 闪 认 闪 来 玉 闪 闪 玉 沙 关 


程序 为 : 

10 DIM F(6,6)，H(6,6)，A(4) ,B(4)，C(16) ，L(3) 
50 FOR X=1 TO16 

51 FOR Y=1 TO6 

52 下 (X,Y)=0 

53 NEXT Y 

54 NEXT XXX 

60 FOR I=1 TO 3 
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N=4-1 
FOR J=1TO 2 

A=INT(6x*RND(0)+1) 
B=INT(6x*RND(O)+1) 
D-=INTCxRND(O+I) 

IF F(A,B)>0 THEN 90 

M=0 

ON D GOTO 150,340,550,740 

B(1) =B 

B(2) =7:B(3) =7 

FOR K=1TON 

IF ML THEN 240 

IF B(K) =6 THEN 230 

IF FCA,B(CK) +1)>0 THEN 230 

BE 1) =BGK)+1 

GOTO 280 

M=2 

IF B(D)《B(2) AND B(1HD)《B(3) THEN Z=B(1) 
IF B(2)<B(I1) AND B(2)《B(3) THEN Z= B(2) 
IF B(3)B(1) AND B(3)<B(2) THEN Z=B(3) 
IF Z-1THEN 90 

IF F(A,Z-1)>0 THEN 90 

B(K+1)=Z-1 

NEXT K 

F(A,B) =9-2xI-J 

FOR K=1 TON 

F(A,B(K+1)) =F(A,B) 


430 


450 


462 


510 
520 


NEXT 开 

GOTO 990 

A(1) = 和 A 

B(1) =B 

A(2) =0:A(3) =0:B(2) =0:B(3) =0 

FOR KK=T1TTON 

IF M21 THEN 460 

IF A(GK)=1 OR BGK)=1 THEN 450 

IF FGCACGK)-1，B(GK)-1)20 THEN 450 

IE FA(GKK) -1，BCGIK))20 AND FFCACGK) -1， 
B(K)) =F(A(GK)，B(K) -1)THEN 450 

A( 用 +1) =A(K) -1 

B(GK+1)=B(GK)-1 

GOTO 530 

M=2 

IF A(1)>A(2) AND A(1)>A(3) THEN Z1= A(1) 
IF A(2)>A(1) AND A(2)>A(3) THEN Z1=A(2) 
IF A'`3)>A(I) AND A(3)>A(2) THEN Z1=A(3) 
IFB(G)>B(2) AND B(1)>B(3) THEN Z2=B(l) 
IF B(2)>B(1) AND B(2)>B(3) THEN Z2=B(2) 
IF R(3)>B(1) AND B(3)>B(2) THEN Z2=B(3) 
IF Z1=6 OR Z2=6 THPN 90 

IF FE(GZ1+1，2Z2+1)20 THEN 90 

IF F(Z1,Z2+1)>0 ANDEF(CZ1,Z2+1) =F(Z1+1， 
Z2) THEN 90 

A(K+1)=Z1+1 


B(GK+1) =Z2+1 


530 NEXT 攻 :GOTO 950 
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550 A(1) = 和 A 

560 A(2) =7:A(3) =7 

570 FOR KK=1 TO N 

580 IF M2>1 THEN 640 

590 IF A(K)=6 THEN 630 

600 IE FEGCACGK)+1,B)>0 THEN 630 

610 A(K+1) =AGK)+1I 

620 GOTO 680 

630 M=2 

640 IF A(1)《A(2) AND A(1)《A(3) THENZ=A(l) 
642 IF A(2)《A(1)》 AND A(2)(A(3) THEN Z=A(2) 
644 IF A(3)4A(I) AND A(3)(A(2) THENZ=A(3) 
650 IF Z=1 THEN 90 

660 IE FE(GZ-1,B)20 THEN 90 

670 A(KE+1)=2Z-1 

680 NEXT 开 

690 FE(A,B)=9-2sI- 了 本 

700 FOR =1 TON 

710 上 (ACEK+1)，B)=F(A,B) 

720 NEEXT 下 

730 GOTO 990 

740 A(1) = 和 人 A 

753 B(1) =B 

760 A(2) =7: A(3) =7 

770 B(2) =0:B(3) =0 

780 FOR 必 =1 TON 

790 JEF M2?1 THEN 870 
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970 
980 


IF AGK)=6OR BGIK)=1THEN 860 

IF F(ACGK)+1,B(GK) -1)20 THEN 860 

IF FA(GK)+1，BGK))>0 AND FGCACGK)+1% 
B(K)) =F(ACGK),B(GK)-1) THEN 860 
A(K+1l1)=A(GK)+1 

B(GR+1)=B(GR) 一 1 

GOTO 940 

M=2 

IE A(1D)A(2) AND A(1D)CA(3) THEN ZLZ1=A(Cl) 
IF A(2)A(G) AND A(2)4A(3) THEN 21=A(2) 
IF A(3)4A(G) AND A(3)《A(2) THEN Z21=A(3) 
IF BG)>B(2) AND B(D)>B(3) THEN 22=B(1) 
IF B(2)>B(G1) AND B(2)>B(3) THREN Z2=B(2) 
IF BC3)2B(1) AND B(3)>B(2) THEN 2Z2=B(3) 


0 ji LT=1OR 2Z2=6THEN 90 


IF F(GZ1-1,22+1)20 THEN 90 

IE 了 (2Z1,Z22+1)20 ANDF(GZ1,Z2+1)=FGCZ1-1， 
“2) THEN 90 

A(RKR+1)=2Z1-1 

BEK+1)=Z2+1 

NEXT 开 

F(A,B)=9 一 2*l 一 本 

FOR KK=1 TON 
F(A(GK+1),B(GK+1))=FIA,B) 

NEEXT 天 


990 NEXT J 
1000 NEXT 工 
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1010 PRINT 

1020 PRINT "THE FOLLOWING CODE OF THE 
BAD GUYS' FLEET DISPOSITIONY 

1030 PRINT "HAS BEEN CAPTURED BUT NOT 
DECODED，， 

1040 PRINT 

1050 FOR I-1 TO 6 

1051 FOR J=1 TO 6 

1052 HL,J) =FdJ,D) 

1053 NEXT j 

1054 NEXT 1 

1060 FOR I=1 TO 6 

1061 FOR J=1 TO 6 

1062 PRINT HCLJ); 

1063 NEXT J 

1064 PRINT 

1065 NEXT I 

1100 PRINT 

1110 FOR I=1 TO 6 

1111 FOR J=1 TO 6 

1112 H(I,J) =0 

1113 NEXT J 

1114 NEXT [ 

1120 FOR I=1 TO 3 

1121 L() =0 

1122 NEXT I 

1130 C(1) = 2:C(2) = 2 
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1140 
1150 
1160 
1170 
1180 
1190 
1200 


1210 
1220 
1230 
1240 
1250 
126 ) 
1270 
1280 
1290 
1300 


1310 
1320 
1330 
1340 
1350 
1360 
1370 


C(3) =1:C(4) =1 

C(5)=0:C(6) =0 

S=0: 了 =0 

PRINT START GAMEY 

INPUT X,Y 

ji Xx1 OR X 6DR INT(OX)C7ABSCX)THEN 1210 
IF Y70 AND Y47 AND INT(CY) =ABS(CY) THEN 
1230 

PRINT "INVALiID INPUT，，TRY AGAIN 
GOTO 1180 

R=7-Y 

C= 共 

IFCGR,C)20 THEN 1290 

二 号 二 二 

PR NT 7SPLASHI TRY AGAIN.7 

GOTO 1i180 

JE CCEGR,C))C4 THEN 1340 

PRNT "THERE USED TO BE A SHIP AT 
THAT POINT，BUT YOU SUNRK 1T.7 

PRINT ”SPLASHI TRY AGAIN.7 

9S9=9+1 

GOTO 1180 

IE HCR,C)>0 THEN 1420 

囊 = 瑞 +1 

也 (了 ,C) = 上 (R,C) 

PRINT "A DIRECT HIT ON SHIP NUMPDPERYY 
FE (R，,C) 
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”和 200 。 


COF(R,C))=CGFCGR,C))+1 

IF CCFCGR,C))>=4 THEN 1470 

PRINT TRY AGAIN." 

GOTD 1180 

PRINT "YOU ALREADY PUT A HOLE IN 
SHIP NUMBEREF(CR,C)， 

PRINT "AT THAT POINT." 

PRINT "SPLASHI TRY AGAIN 

9S9=9+1 

GOTO 1180 

LOCGINTOFCGR,C) -1)/2)+1)=LIOOINTCGFCGR，C) - 
1)/2)+1)+1 

PRINT "AND YOU SUNK IT. HURRAH FOR 
THE GOOD GUYS." 

PRINT "SO FAR，THE BAD GUYS HAVE 
LOST" 

PRINT L(D);7"DESTROYER(S)， "3 工 (2); 
"CRUISER(S)，AND 7 

PRINT L(3)37AIRCRAFT CARRIER(S)." 
PRINT YOUR CURRENT SPLASH/VHIT RATIO 
JS"3;SV/II 

IF (LGD)+L(2)+L(3))《6 THEN 1180 

PRINT 

PRINT "YOU HAVE TOTALLY WIPED OUT 
THE BAD GUYS' FLEET 

PRINT WITHIAEFINAL SPLASH/HIT RATIO 
OF";S/H 


1570 IF S/H>0 THEN 1590 

1580 PRINT "CONGRATULATIONS 一 A DIRECT 
于]I 工 刁 VERY TIME.7 

1590 PRINT 

1600 PRINT 关 洲 沙洲 米 洲 洲 共 玉 关 共 基 关头 关 基 其 尖 月 

1610 PRINT 

1620 GOTO 50 

1630 END 


52。 海 战 


侨 和 计算 机 各 拥有 一 支 舰 队 , 分 别 布置 在 两 个 10 x 10 的 坐 
标 系统 内 。 每 方 都 拥有 四 舵 舰 艇 : 一般 战斗 舰 ( 占 五 个 位 置 ) ,一 
艘 巡洋舰 〈 占 三 个 位 置 ) ,两 艘 驱逐 舰 〈 每 艘 各 占 两 个 位 置 ) 。 舰 
艇 的 布置 可 按 横 的 、 竖 的 或 斜 线 方向 ， 但 彼此 不 得 重 欠 ， 且 在 
游戏 过 程 中 不 能 移动 。 

战斗 裔 每 次 可 打炮 三 发 ， 巡 洋 舰 可 打炮 两 发 ， 驱 逐 舰 可 打 
炮 一 发 ， 六 此 ， 在 游戏 开始 有 时 每 方 可 打炮 七 发 (3+2+1+1)。 

游戏 开始 时 ， 先 布置 你 方 的 舰队 ， 然 后 你 打 七 发 炮弹 ， 将 
射击 月 标的 坐标 x，y 打 入 计算 机 ， 计 算 机 便 告诉 你 打 中 了 
什么 上 只。 被 击 中 的 明 不 能 再 发 地 。 谁 先 将 对 方 的 船只 全 部 于 
灭 谁 就 为 胜 。 

运行 记录 中 ， 

2 .55 
表示 要 打 对 方 x=5，y= 工 那 一 位 置 。 
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012345678910 012345678 9 


ENTER COORDINATES FOR... 
BATTLESHIP 


10，10 
9，,9 


DE3STROYERA> 


? 1，,10 
? 2，,10 


DESTROYERB> 


? 6，7 
? 6，,8 


DO YOU WANT TO START? YVES 
(如 果 想 看 对 方 舰只 位 置 可 打 入 “WHERE ARE 
YOUR SHIP? ”) 
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DO YOU WANT TO SEE MY SHOTS? YES 

(如 在 游戏 中 不 要 了 解 对 方 发 射 炮 弹 的 情况 ,可 打 入 “NO") 
TURN 1 

YOU HAVE 7 SHOTS9 。 


Do 


? 5,7 
YDU HIT MY DESTROYER<B>。 
I HAVE 7 SHOTS . 

《显示 计算 机 一 方 发 射 情况 ) 


10 8 
10 10 
8 10 
9 9 
9 10 
1 9 
8 8 


IT HT YOUR BATTLESHIP 
I HIT YOUR BATTLESHIP 
I HIT YOUR BATTLE3SHIP 


TURN 2 

YOU HAVE 7 SHOTS. 
? 4 1 

7 

? 4，5 

Do 

3 .0.2 

9 0 过 

? 6，6 
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TI HAVE 7 SHOTS， 
10 


性 所 OICcD 
心 中 O 人 局 吕 


TI HIT YOUR BATTLF TIP 


TURN 3 
YOU HAVE 7 SHOTS9， 
? 人 
?了 414 
? 4 6 
人 1 65 二 
? 6, 3 
2” 20 人 9 
? 6,，7 


I HAVE 6 9HOTS， 


co cn 六 怕 心 呈 
性 多 汪 色情 


TURN 4 
YOU HAVE 7 SHOTS， 
1，1 


和 个 人 人 
必 已 疡 性 店 

v 
心 co co 王 已 
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YOU SHOT THERE BEFORE ON TURN 3 
? 3，4 
I HAEV 6 SHOTS. 


上 产 上 产 卢 加 心情 
一 


I HIT YOUR CRUISER 
TURN 5 
YOU HAVE 7 SHOTS， 


和 人 人 四 全 


YOU HIT MY DESTROYER(A>。 
IHAVE 6 SHOTS. 


cD 罗 心情 口 I 史 


TURN 6 
YOU HAVE 7 SHOTS， 


9 个 


9》 


Na 请 斑 王 
中 


人 


co 愉 情 oo 


ce co 品 心 
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2 “2729 

? 3，6 

? 3，7 

YOU HIT MY DESTROYERA>。 
TI HAVE 5 SHOTS. 


ON 咬 品 避 
心 心心 co 心 


TURN 7 

YOU HAVE 7 SHOTS， 
? 8 ;3 

? 8 ,5 

?3 8 ;7 

0 

?3 10,.5 

?2 10:7 

? 10,9 

YOU 下 IT MY CRUiSER. 
YOU HT MY CRUISER 。 
TI HAVE 5 9HOTS。 

4 


ha epP Fa 哺 


6 
6 
5 
0 5 
I HIT YOUR CRUITSER 
TURN 8 
YOU HAVE 7 SHOTS， 
38，1 


8，'2 
8，4 
1，10 


ao es 


2，10 
3，10 
4，10 


? 

了 

I HAVE 5 SHOTS. 
1 5 

8 14 

8 5 
2 5 
2 
TURN 9 

YOU BAVE 7 SHOT9?. 


~ 了 
局 
CD 


rs。 5 0 9 人 呈 
四 
CDP ~ GO 由 ~ GO 


上 -一 


TAVE 5 SHOT9. 


<PD So co ce co 
mm 吕 四 呆 ~] 


LIBT YOUR CRUISER 
TURN 10 

YOU HAVE 5 SHOTS. 
? 9，,1 
? 9 9 作 
? 9，4 
? 9，6 
所 9 9 8 
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YOU HBIT MT CRUISER， 
IHAVE 3 SHOTS。 
10 2 


TI HIT YOUR DESTRORER《A> 
TURN 11 
YOU HAVE 5 SHOTS9. 


? 

人 

3? 7，9 
? 

? 

YOU SHOT THERE BEFORE ON TURN 9 
?3 8,8 

YOU HIT MY PATTLESHIP. 

YOU HIT MY BATTLESHIP。 


工 HAVE 3 SHOTS. 


1 9 
2 9 
10 工 


TURN 12 
YOU 下 AVE 5 SHOTS, 


si 
CC? 
本 
< 


YOU HIT MY BATTLESMIP， 
YOU 囊 IT MY BATTLESHIP。 
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YOU HIT MY BATTLESHIP。 
TI HAVE 0 SHTOS. 
YOU HAVE WON. 


程序 如 下 ; 

1000 DIM A(10,10) ，B(10,10) ，C(7)，D(7)， 瑟 (12)， 
FE(12),G(12) ,了 (12), 民 (10,10) 

1050 2Z8 =0 

1060 FOR W=1 TO 12 

1070 了 上 (W) = -1 

1080 HIW) = 一 1 

1090 NEXT W 

1100 FOR X-=1 TO 10 

1110 FOR Y=1 TO 10 

1120 B(X,Y)=0 

1130 NEXT Y 

1140 NE 匡 XT 入 

1150 FOR X=1 TO 12 

1160 FE(X) =0 

1170 G(X) =0 

1180 NEEXT 又 

1190 FOR X=1 TO 10 

1200 FOR Y=1 TO 10 

1210 A(X,Y)=0 

1220 NEXT Y 

1230 NEXT 又 

1240 FOR KK=4 TO1 9393TEP=-1 

1250 U6 =0 


。209。 


1480 


GOSUB 2910 

DEF FENA(GKR)=(5-K)x*3-2xINT(GK7/4) 
+SGN(GK -1) -1 

DEF FENB(K) =K+INTGK/4) -SGN(K- 雪 
IFV+V2+VxV2=0THEN 1260 

IF Y+VxEFENB(GK)>10 THEN 1260 

IE Y+VxEFENB(GIK)CL THEN 1260 

[IE X+V2x*FNBCGR)>10 THEN 1260 

IF X+V2x*FNB(GK)CI THEN 1260 
U6=U6+1l 

IF U6>25 THEN 1190 

FOR 2Z=0 TO FNB(CK) 
F(GZ+FENA(GK))=X+V2xZ 
G(C+FNA(GK))=Y+VxZ 

全 玉 久 开工 

U8= 上 NAK) 

IF U38>U8+FNB(K) THEN 1460 

FOR Z2=U8 TO U8+ FENDBP(K) 

JE U872 THEN 1450 

FOR Z3=1 TO U8=-1 

IF SQRIF(Z3)-F(Z2)) 个 2+(G(Z3) -G(Z2)) 个 2) 
“3.59 工 夺 此 N 1260 

NEX 了 了 2Z3 

NEXT 22 

FOR Z=0 TOFNB(CK) 
(EC+U8,GGG+U8)=.5+SGN(K-1)*( 民 -1.5) 
NEXT 2 


1490 NEXT K 

1500 ERINT "ENTER COORDINTES FOR..." 

1510 PRINT "BATTLESHIPy 

1520 FOR X=1 TO 5 

1530 INPUT Y,Z 

1540 B(Y,Z) = 3 

1550 NEXT X 

1560 PRINT 7CRUJSERY 

1570FOR X=1 TO 3 

1580 INPUT Y,Z 

1590 B(Y,Z) = 2 

1600 NEXT X 

1610 PRINT 7DESTROVERZA2Y 

1620 FOR X=1 TO 2 

1630 JINPUT Y,Z 

1640 B(Y,Z) =1 

1650 NEXT 义 

1660 PRINT "DESTROYER“By>， 

1670 FOR X=1 TO 2 

1680 INPU 生 Y,Z 

1690 B(Y,Z) = .5 

1700 NEXT X 

1710 PRINT "DO YOU WANT TO START; 

1720 INPUT JJ$ 

1730 IF J$4 WHERE ARE YOUR SHIPS7 THEN 
1890 

1740 PRINT 7BATTLESIBEY 


1750 
1760 
1770 
1780 
1780 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
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FOR Z=1 TO 5 

PRINT FE(Z)3G(Z) 

NEXT 2 

PRINT 7CRUISERY 

PRINT F(6) 3G(6) 

PRINT F(7)3G(7) 

PRINT FE(8)3G(8) 

PRINT "DESTROYERCA>Y7 
PRINT 上 (9)3G(9) 

PRINT FE(10) 5G(10) 

PRINT 7"DESTROYERB2>7 

PRINT FE(il)5G(C1) 

PRINT F(12);G(12) 

GOTO 1710 

C=0 

PRINT "DO YOU WANT TO SEE MY SHOTSY; 
INPUT K$ 

PRINT 

IF J$4 27YES7 THEN 2620 
民 忆 EM xx 关头 兴 兴 米 兴 X%X#% 关 STARTT 


JP J$4 27YES THEN 1990 
C=C+l 

PRINT 

PRINT TURN73C 

A=0 

FOR W=.5TO3STEP .5 


EOR X=1 TO 10 


2020 FOR Y=1 TO 10 

2030 IF BCGCX,Y)=WTHEN 2070 

2040 NEXT Y 

2050 NEXT X 

2060 GOTO 2080 

2070 A=A+INTIW-,.5) 

2080 NEXT W 

2090 FOR W=1TO7 

2100 CC(W)=0 

2110 D(W) =0 

2120 下 (W)=0 

2130 G(W)=0 

2140 NEXT W 

2150 P3=0 

2160 FOR X=1 TO 10 

2170 FOR Y=1 TO 10 

2180 IF ACX,Y)>10 THEN 2200 

2190 P3=P3+1 

2200 NEXT YY 

2210 N 了 入 上 入 

2220 PRINT "YOU HAVEI" ASHOTS .7 

2230 IF P3>=A THEN 2260 

2240 PRINT "YOU HAVE MORE SHOTS THAN 
THERE ARE BLANK SQUARES .7 

2250 GOTO 2890 

2260 IF A4>0 THEN 2290 

2270 PRINT 7 HAVE WON./ 
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9STOP 

FOR W=1 TO A 

INPUT X,Y 

IE XINTCX) THEN 2370 

IF X>10 THEN 2370 

IF XI THEN 2370 

IF YCG >INTCY) THEN 2370 

IF Y>10 THEN 2370 

JEF Y>=1 THEN 2390 

PRINT ZILELEGAL，ENTER AGAIN.7 
GOTO 2300 

IF A(CX,Y)>10 THEN 2440 
CC(W)=X 

BCW) = 立 

NEXT W 

GOTO 2460 

PR NT "YOU SHOT THERE BEFORE 
TURN7A(CX,Y) -10 

GOTO 2350 

FOR W=1TO A 

IF ACCCW),DICW))=3 THEN 2540 
JE ACCCW),D(W))=2 THEN 2560 
IF ACCCW) ,DCW))=1 THEN 2580 
IF AGCCCW),DGCW))=.5 THEN 2600 
A(C(W),DCW))=10+ 


NEEXT W 


2230 GOTO 2626 


ON 


2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 


PRINT "YOU HIT MY BATTLESHIP. 
GOTO 2510 

PRINT "YOU HIT MY CRUISER .7 
GOTO 2510 


PRINT "YOU HIT MY DESTROYER(CA>。8 


GOTO 2510 

PRINT "YOU HIT MY DESTROYERB>。! 
GOTO 2510 

A=0 

IF J$=7"YES" THEN 2670 
C=C+l 

PRINT 

PRINT TURNY73C 

A=0 

FOR W=.5TO339S9TEP .5 
FOR X=1 TO 10 

FEOR Y=1 TO 10 

IF A(X,Y)=WTHEN 2750 
NEXT Y 

NEXT X 

GOTO 2760 
A=A+INTCXW+.5) 

NEXT W 

P3=0 

FOR X=1 TO 10 

FOR Y=1 TO 10 

IE A(CX,Y)>10 THEN 2820 
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2810 P3=P3+1 

2820 NEXT Y 

2830 NEXT 入 

2840 PRINT "IT HAVE7 ASHOTS9.7 

2850 IF P3>A THEN 2880 

2860 PRINT "TI HAVE MORE SHOTS THAN BLANK 
SQUARES." 

2870 GOTO 2270 

2880 IF A47>0 THEN 2960 

2890 PRINT "YOU HAVE WON./ 

2900 STOP 

2910 X=INTCRND(0O) *10+1) 

2920 Y=INTCRND(0) *10+1) 

2930 V =INT(3*xRND(0) -1) 

2910 V2=INT(3xsRND(0) -1) 

2950 RETURN 

2960 FOR W=1 TO 12 

2970 IF HGCW)>0 THEN 3800 

2980 NEXT W 

2990 REM#* 关 闪闪 兴 兴 关 关 关 关 尖 米 RANDOM 

3000 W =0 

3010 R3=0 

3020 GOSUB 2910 

3030 RESTORE 

3040 R2=0 

3050 R5 =R3+1 

3060 IF R3>100 THEIN 3010 
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3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 


IE X2>10 THEN 3110 

IF X20 THEN 3120 
X=1+INTIRND(0) *2.5) 
GOTO 3120 
X=10-INTCRND(0) *2.5) 
IF Y>10 THEN 3160 

IFE Y20 THEN 3270 
Y=1l+INTIRND(0)*2.5) 
GOTO 3270 
Y=1l0-INTIRND(0) *2.5) 
GOTO 3270 

F(W) = 叉 

GCCW) = 立 

IF 到 =ATHEN 3380 

IF R2=6 THEN 3030 


READ X1L，Y1 
R2=R2+1 
DATA 1,1, 一 1,1,1, 一 3,1,1,0,2， 一 1 1 


X=X+X1 

Y=Y+l 

IF X7?10 THEN 3210 

IF XI THEN 3210 

IF Y>10 THEN 3210 

IF YL THEN 3210 

IF B(X,Y)>10 THEN 3210 
FOR Q9=1 TO 允 

IF F(Q9)( >X THEN 3350 
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3340 IF G(Q9) =Y THEN 3210 


3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
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NEXT Q9 

W=W+l 

GOTO 3180 

IF KK$5>7YES THEN 3420 

FOR Z5=1 TO A 

PRINT FE(Z5)35G(Z5) 

NEXT 2Z5 

FOR W=1TOA 

IFE BCGFECW),GC(W))=3 THEN 3500 

IE BCGFECW),G(W))=2 THEN 3520 

IF BCGFCW),G(W))=1 THEN 3560 

IF BCFE(CW),G(W))=.5 THEN 3540 
BCGFEC(CW),G(W))=10+C 

NEXT W 

GOTO 1950 

PRINT 7I HIT YOUR BATTLESHIPY 
GOTO 3570 

PRINT 7IT HIT YOUR CRUTJSERY 
GOTO 3570 

PRINT 7I HIT YOUR DESTROYER(B7>7 
GOTO 3570 

PRINT 7I HIT YOUR DESTROYER(CA>7 
FOR Q=1 TO 12 

IF 了 CQ) >-1THEN 3730 

EC(Q) =10+C 

HGCQ) =BGFCW):G(W)) 


3610 
3620 
3630 
3640 
3650 
3660 


3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 


M3=0 

FOR M2=1 TO 12 

IF HIM2) >HCQ) THEN 3650 
M3=M3+1 

NEXT M2 

IF M3< >INT(CH(Q)+.5)+1+ INTONT(OGH (CQ) + 
.5)/3) THEN 3470 

FOR M2=1 TO 12 

IF HCOM2)《 >H(CQ) THEN 3710 
已 (M2) = -1 

HCM2) = -1 

NEXT M2 

GOTO 3470 

NEXT Q 

PRINT " PROGRAM ABORT:7 


FOR Q=1 IO 12 

PRINT “ECO5Q37) = 3E(Q) 

PRINT "“HCQi = HH(COQ) 

NEXT Q 

STOP 

REM x#x 关 关头 关 # 关 共 %#X%x% [UJSINGEARRAY 


FOR R=1 TO 10 
FOR S=1 TD 10 
K(CR,9) =0 
NEXT 3 

NEXT 及 

FOR U=1 TO 12 
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3870 IF E(U)《10 THEN 4020 

3880 FOR R=1 TO 10 

3890 FOR S=1 TO 10 

3900 IF B(R,S)《10 THEN 3930 

3910 民 (R,S) = -10000000 

3920 GOTO 4000 

3930 FOR M=SGN(I1-R) TO SGN (10- R) 

3940 FOR N=SGN(1-S) TO SGN(10- 5) 

3950 IF N+M+NxM=0 THEN 3980 

3960 IF BGR+M,S+N)( >E(IU) THEN 3980 

3970 区 (R,S) =K(OR,S) +E(U) ~ Sr*INTOIHCU) + .57 

3980 NEXT N 

3990 NEXT M 

4000 NEXT S 

4010 NEXT R 

4020 NEXT U 

4030 FOR R=1 TO A 

4040 F(R) = 及 

4050 G(R) = 及 

4060 NEXT 有 R 

4070 FOR R=1 TO 10 

4080 FOR S=1 TO 10 

4090 Q9=1 

4100 FOR M=1 TO A 

4110 IF 玫 CE(IOM),G(M))>= 开 (FE(Q9),G(Q9)) THEN 
4130 

4120 Q9 = M 
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4130 NEXT M 

4131 IF RyA THEN 4140 

4132 IF R-=S THEN 4210 
4140 JF K(R,S)<K(GF(Q9) ,G(Q9)) THEN 4210 
4150 FOR M=1 TO A 

4160 IF F(M)《 >R THEN 4190 
4170 ]JF G(M) =S THEN 4210 
4180 NEXT M 

4190 FE(Q9) =R 

4200 G(Q9) = S 

4210 NEXT S 

4220 NEXT R 

4;30 GOTO 3380 

4240 ND 


53。 炮击 


两 个 人 《〈 你 和 计算 机 各 代表 一 方 ) 在 本 方 阵地 设防 。 阵 地 
划 为 5 x 5 的 方 格 , 即 各 有 25 个 方 格 , 以 1 一 25 号 码 代表 之 。 
每 方 各 有 四 队 士兵 ， 可 以 在 你 任 选 的 四 个 方 格 内 设防 。 你 应 设 
法 用 炮 摧 毁 敌 人 的 阵地 ， 消 灭 对 方 四 队 士 兵 ， 同 时 ， 对 方 也 想 
达到 这 样 的 目的 。 谁 先 消灭 对 方 全 部 士兵 者 为 胜 。 在 开始 时 ， 
先 指定 你 的 士兵 设防 地 点 ， 然 后 炮击 敌 军 某 一 阵地 (一 次 只 能 
射击 对 方 一 个 方 格 ) 。 

YOU ARE ON A BATTLEFIELD WITH 4 

PLATOONS AND YOU 
HAVE 25 OUTPOSTS AVAILABLE WHERE 
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THEY MAY BE PLACED. 

YOU CAN ONLY PLACE ONE PLATOON AT 
ANY ONE OUTPOST， 

THE COMPUTER DOES THE SAME WITH ITS 
FOUR PLATOONS. 

THE OBJECT OF THE GAME IS9 TO FIRE 
MISSILES AT 工 HE 

OUTPOSTS OF THE COMPUTER。IT WILL DO 
THE SAME TO YOU . 

THE ONE WHO DESTROYS AI FOUR OF THE 
ENEMY'9 PLATOONS 

FIRST IS9 THE WINNER . 

GOOD LUCK... AND TELL US WHERE YOU 
WANT THE BODIES SENTI 

TEAR OFF MATRIX AND USE 1T TO CHECK 
OFEFE THE NUMBLERS .。 


1 2 3 4 5 

6 了 8 9 10 
11 12 13 14 15 
16 47 18 19 20 
21 22 23 24 25 


WHAT ARE YOUR FOUR POSITIONS? 10,9,16，24 
WHERE DO YOU WISH TO FIRE YOUR MIS9IL 也 
? 3 

HA，HA YOU MISSED. MY TURN NOW 

I MISSED YOU,，YOU DIRTY RAT.I PICEKED 21。 
YOUR TURN . 
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WHERE DO YOU WISH TO FIRE YOUR. MISSILE 
? 3 

HA，HA YOU MISSED. MY TURN NOW 

I MISSED YOU，YOU DIRTY RAT.IPICKED 23 
YOUR TURN 。 

WHERE DO YOU WISHTO FIRE YOUR MISSILE 
?13 

HA，HA YOU MISSED. MY TURN NOW 

JI MIS9ED YOU，YOU DIRTY RAT. IPICKED 22.. 
YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE. 
? 11 
HA，HA YOU MISSED. MY TURN NO 到 


IMISSED YOU，YOU DIRTY RAT. IPICKED 13. 
YOUR TURN 

WHERE DO YOU WISH TO FIRE YOUR MLSSILE 
? 9 

HA，HA YOU MISSED. MY TURN NOW 


I MISSED YOU, YOU DIRTY RAT. IPICKED 15。 
YOUR TURN . 


WHERE DO YOU WISH TO FIRE YOUR MISSILZ 
? 25 
HA，HA YOU MISSED. MY TURN NOW 


I MISSED YOU，YOU DIRTY RAT, IPICKED 12。 
YOUR TURN, 
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WHERE DO YOU WISH TO FIRE YOUR MIJISSILE 
?3 5 

HA，HA YOU MISSED. MY TURN NOW 

I MJSSED YOU，YOU DIRTY RAT.IPICKED 1. 
YOUR TURN 


WHERE DO YOU WISH TO FIRE YOUR MI1S91L 也 
3 20 


HA，HA YOU MISSED. MY TURN NOW 


TGOT YOU. IT WON'T BE LONG NOW.POST 
16 WAS HIT. 

YOU HAVE ONLY THREE OUTPOSTS LEFT。 

WHERE DO YOU WISH TO FIRE YOUR MIS9ILE 

了 3 了 21 

HA，HA YOU MISSED. MY TURN NOW 

TI MISSED YOU，YOU DIRTY RAT. I PICKED 20. 

YOUR TURN， 


WHERE DO YOU WISH TO FIRE YOUR MIJISSILE 
3 23 

YOU GOT ONE OF MY OUTPOSTS . 

ONE DOWN，THREE TO GO 

I MISSED YOU，YOU DIRTY RAT. TPICKED 8. 
YOUR TURN 

WHERE DO YOU WISH TO FIRE YOUR MISSILE 
? 16 
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HA，HA YOU MIS9SED. MY TURN NOW 


] MISSED YOU，YOU DIRTY RAT. I PICKED 4。 
YOUR TURN . 


WHERE DO YOU WIJISH TO FIRE YOUR MISSILE 
? 15 

HA，HA YOU MISSED. MY TURN NOW 

TI MISSED YOU，YOU DIRTY RAT.T PICKED 6。 
YOUR TURN . 


WHERE DO YOJTWISHTO FIRE YOUR MISSILB 
了 14 

YOU GOT ONE OF MY OUTPOSTS . 

TWO DOWN，TWO TO GO 


I GOT YOU. IT WON'T BE LONG NOW. POST 
10 WAS HIT. 

YOU HAVE ONLY TWO OUTPOSTS LEFT。 

WHERE DO YOU WIISH TO FIRE YOUR MISSILE 

? 13 

HA，HA YOU MISSED. MY TURN NOW 

J] MISSED YOU，YOU DIRTY RAT. TPICKEDP 19. 

YOUR TURN . 


WHERE DO YOU WISH TO FIRE YOUR MI1SSITLE 

了 3 12 

HA，HA YOU MISSED. MY TURN NOW 

TI MISSED YOU，YOU DIRTY RAT. 工 PICKED 7。 
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YOUR TURN， 

WHERR DO YOU WIISH TO FIRE YOUR MISSITLE 

? 11 

HA，HA YOU MIJISSED. MY TURN NOW 

] GOT YOU. IT WON'T BE LONG NOW. POST 
24 WAS 也 IT. 

YOU HAVE ONLY ONE OUTPOST LEFT， 


WHERE DO YOU W]JSH TO FIRE YOUR MISSILE 


? 1 
HA，HA YOU MISSED.MY TURN NOW 


I MJS9SED YOU，YOU DIRTY RAT. I PICKED 2, 
YOUR TURN. 

WHERE DO YOU WISH TO FIRE YOUR MISSILE 
? 2 

YOU GOT ONE OF MY OUTPOSTS ， 

THREE DOWN，ONE TO GO 

I MISSED YOU，YOU DIRTY RAT.IPICKED 18. 


YOUR TURN . 
WHERE DO YOU WISH TO FIRE YOUR MISSILE 


? 3 
HA，HA YOU MISSED. MY TURN NOW 
I MISSED YOU，YOU DIRTY RAT.I PICKED 3. 
YOUR 了 URN 
WHERL DO YOU WISH TO FIRE YOUR MISSILE. 
? 4 
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HA，HA YOU MISSED. MY TURN NOW 
I MISSED YOU，DIRTY RAT. 工 PICKED 14。 
YOUR TURN . 


WHERE DO YOU WISH TO FIRE YOUR MISSILE 
? 22 
HA，HA YOU MISSED. MY TURN NOW 


I MISSED YOU，YOU DIRTY RAT. TIPICKED 25。. 
YOUR TURN. 

WHERE DO YOU WISH TO FIRE YOUR MISSILE 
? 12 

HA，HA YOU MISSED. MY TURN NOW 


I MISSED YOU，YOU DIRTY RAT. 工 PICKED 11。 
YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE 

二 光 

HA，HA YOU MISSED. MY TURN NOW 

YOU'RE DEAD， YOUR LAST OUTPOST WAS 
AT 9. HA，HA，HA， 

BETTER LUCK NEXT TIME， 

程序 为 

100 PRINT "YOU ARE ON A BATTLEFIELD 
WITH 4 PLATOONS AND YOU" 

110 PRINT 7HAVE 25 OUTPOSTS AVAILABLE 
WHERE THEY MAY BE PLACED." 

120 PRINT "YOU CAN ONLY PLACE ONE 
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130 


400 
410 
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PLATOON AT ANY ONE OUTPOST." 

PRINT "THE COMPUTER DOES THE SAME. 
WITH ITS FOUR PLATOONS." 

PRINT 

PRINT "THE OBJECT OF THE GAME IS TO. 
FIRE MISSLES AT THEY 

PRINT "OUTPOSTS OF THE COMPUTER, 
IT WILL DO THE SAME TO YOU." 

PRINT ?THE ONE WHO DESTROYS ALL. 
FOUR OF THE ENEMTY'S PLATOONSY7 
PRINT FIRST JIS THE WINNER.7 

PRINT 

PRINT ”GOOD LUCK..，、 AND TELL US9. 
WHERE YOU WANT THE BODIES SENTI 
PRINT 

PRIJINT "TEAR OFF MATRIX AND USE IT TO 
CHECR OFF THE NUMBERS.7 

PRINT 

DIM M(100) 

FOR R=1 TO 5 

TI= (人 一 1)*5+1 

PRINT I,I+l,I+2,I+3,[I+4 

NEXT R 

PRINT:，，PRINT 

C=1INTIRND)0)*25) +1 

D=INTIRND(0O)*25) +1 

有 =INTITCRND(0)#25) +1 

F =INTCRND(0)xz25) +1 


420 IF C=D THEN 390 

430 IF C= 世 THEN 400 

440 IF C=FE THEN 410 

450 IF D= 芝 THEN 400 

460 IF D=F THEN 410 

470 IF 了 =F THEN 410 

480 PRINT WHAT ARE YOUR FOUR 
POSITIONS37; 

490 INPUT G, 也 , 氏 , 上 

495 PRINT 

500 PRINT "WHERE DO YOU WISH TO FIRE 
YOUR MISSLE” 

510 INPUT Y 

520 IF Y=C THEN 710 

530 IF Y=D THEN 710 

540 IF Y= 刁 THEN 710 

550 IF Y=F THEN 710 

560 GOTO 630 

570 M=INTCRND(0)*25) +1 

575 GOTO 1160 

580 IF X=G THEN 920 

590 IF X=HTHEN 920 

600 IF X=L THEN 920 

610 IF X= 玫 .THEN 920 

620 SOTO 670 

630 PRINT ”HA HA，YOU MISSED，. MY TURN 

NOWY7 


960 
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PRINT:，GOTO 570 

PRINT "I MISSED YOU，YOU DIRTY RAT.I 
PICKED7;M; 和 7 .7 :PRINT "YOUR TURN./ 
PRINT:，GOTO 500 

Q=Q+1l 

IE Q=4 了 THEN 890 

PRINT"YOU GOT ONE OF MY OUTPOSTS." 
IF Q=1l1THEN 770 

IF Q=2 THEN 810 

IF Q=3 了 THEN 850 


了 PRINT ONE DOWN，THREE TO GOY 


PRINT:，GOTO 570 
PRINT "TWO DOWN，TWO TO GO 


PRINT:，GOTO 570 

PRINT "THREE DOWN，ONE TO GOY 
PRINT:，GOTO 570 

PRINT "YOU GOT ME，LIM GOING FAST. 
BUT ITILL GET YOU WHENY7 

PRINT / Y TRANSISTORS SECUPERA E7 
GOTO 1235 

Z=2+1 

IFZ=4THEN 1110 

PRINT 7 GOT YOU. IT WONT BE LONG 
NOW. POST23XI7 WAS HIT.7 

IF Z2=1 THEN 990 

IF Z=2 THEN 1030 

IE Z2=3 THEN 1070 


990 


1000 
1030 


1040 
1070 


1080 
1110 


1120 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1235 


PRINT "YOU HAVE ONLY THREE 
OUTPOSTS LEFT." 

PRINT:，GOTO 500 

PRINT "YOU HAVE ONLY TWO OUTPOSTS 
LEFT.7 

PRINT:， GOTO 500 

PRINT "YOU HAVE ONLY ONE OUTPOST 
LEFT .7 

PRINT:， GOTO 500 

PRINT "YOU'RE DEAD. YOUR LAST 
OUTPOST WAS ATI3X 和 HA,HA,HA.Y 
PRINT ”BETTER LUCK NEXT TIME." 
GOTO 1235 

P=P+l 

N=P-1 

FOR T=1 TON 

JPF M=MGCT) THEN 570 

NEXT 工 

X= M 

M(P) = M 

GOTO 580 

蕊 ND 


54。 交 战 


尔 和 计算 机 进行 一 场 小 规模 的 《战争 ”。 开 始 时 各 有 军队 
72000 人 ,你 可 以 指定 其 中 陆军 (ARMY) 、 海 军 (NAVY)、 空 
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军 (AIR FORCE) 各 多 少 人 。 然 后 向 对 方 发 动 攻击 ， 你 从 刍 
人 盘 上 打 入 你 使 用 的 兵种 和 人 数 (以 1 代表 哇 军 、2 代 表 海 
军 、3 代表 空军 ) 。 计 算 机 会 告诉 你 这 次 战争 的 结果 《战斗 后 
双方 人 力 对 比 ) ， 然 后 你 再 次 定 下 一 次 哉 斗 的 部 署 。 两 次 战斗 
之 后 ， 计 算 机 将 委 据 统计 的 结果 决定 谁 胜 谁 仙 、 或 平局 。 
[AM AT WAR WITH YOU 
WE HAVE 72000 SOLDIERS APIECE， 
DISTRIBUTE YOUR FORCES . 


ME YOU 
ARMY 30000 ? 25000 
NAVY 20000 ? 25000 
A.F. 22000 ? 22000 


YOU ALEACK FIRST.TYPE 1 FOR ARMY 2 FOR 
NAVY AND 3 FOR AIR FORCE。 


? 3 

HOW MANY MEN 

? 220090 

YOU WiPEDOUT ONE OF MY ARMY PATi\OLS， 
BUT I DESTROYED 

2 NAVY BASES AND BOMBED 3 ARMY BASES . 


YOU ME 
ARMY 6250 20000 
NAVY 8333 20000 
六 5E 22000 22000 


WHAT IS YOUR NEXT MOVE? 
ARMY=1I NAVY=2 AIR FORCE =3 
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? 3 

HOW MANY MEN 

? 20000 

MY NAVY AND AIR FORCE IN A_ COMBINED 
ATTACK LEFT 

YOUR COUNTRY IN SHAMBLES9， 

FROM THE RESULTS OF BOTH OF YOUR 
ATTACKS， 

YOU LOST-I CONQUERED YOUR COUNTRY. 

IT SERVES YOU 

R GHT FOR PLAYING THIS STUPID GAMEIII 

程序 如 下 : 

4 PRINT "上 AM AT WAR WITH YOU.":， PRINT 
"WPE HAVE 72000 SOLDIERS APIECE.7 

5 PRINT "DISTRIBUTE YOUR FORCES." 

1 PRINT， "ME7，!YOU" 

7 PRINT "ARMY"，30000， 

8 _ INPUT A 

9 PRINT 7NAVY"，20000， 

10 INPUT B 

11 PRINT "A.F."，22000， 

12 JINPUT C 

13 IF A+B+C>72000 THEN 5 

14 D=30000 

15 也 =20000 

16 下 =22000 

17 PRINT "YOU ATTACK FIRST. TYPE.1 FOR 
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ARMY 2 FOR NAVY7; 

PRINT ” AND 3 FEOR AIR FORCE。7 
INPUT Y 

PRINT "HOW MANY MENY7 

INPUT 

IF X《0 THEN 20 

ON Y GOTO 100,200,300 

IE X>A THEN 20 

IE XCA/3 THEN 120 

IF X2*A/3 THEN 150 

GOTO 270 

PRINT "YOU LOSTIX 和 "MEN FROM YOUR 
ARMY.7 

A=IJINT(A-X) 

GOTO 500 

PRINT "YOU LOST"3;INT(X/3)37MEN BUT I 
LOST7;INT(2*D/3) 

A=INT(CA-X/3) 

D=0 

GOTO 500 

IF X>B THEN 20 

IF XXE/3 THEN 230 

IE X《2*xE/3 THEN 250 

GOTO 270 

PRINT "YOUR ATTACK WAS STOPPEDI7 
B=INT(B-X) 

GOTO 500 


250 


255 
260 


PRINT "YOU DESTROYED";INT(2*E/3)37 OF 
MY ARMYY 

下 =INT(E/3) 

GOTO 500 

PRINT "YOU SUNK 1 OF MY PATROL 
BOATS BUT I WIPED OUT 27 

PRINT "OF YOUR A.F. BASES AND 3 ARMY 
BASES." 

A=INT(A/3) 

C=INT(C/3) 

也 =INT(2+ 了 /3) 

GOTO 500 

IF X2C THEN 20 

IF X《C/3 THEN 350 

IF XC2xC/3 THEN 370 

GOTO 380 

PRINT "YOUR ATTACK WAS WIPED OUT 
C=INTICC-X) 

GOTO 500 

PRINT "WE HAD A DOGFIGHT -YOU 
WON- AND FINISHED YOUR MISSION." 
D=INT(2xD/3) 

玉 =INT(CE/3) 

和 = INTCF/3) 

GOTO 500 

PRINT "YOU WIPED OUT ONE OF MY ARMY 
PATROLS，BUT I DESTROYEDY" 
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381 PRINT "2 NAVY BASES AND BOMBED 3 
ARMY BASES." 

385 A=INTCA/4) 

387 B=INT(B/3) 

390 D =INT(2*D/3) 

500 PRINT 

501 PRINT，7YOU"，!ME" 

510 PRINT "ARMY"，A,D 

520 PRINT NAVY7"，B, 尼 

53n PRINT "A.F.",C;,EF 

1000 PRINT "WHAT IS YOUR NEXT MOVE?! 

1010 PRINT "ARMY=1NAVY=2 AIR FORCE=37 

1020 INPUT G 

1030 PRINT "HOW MANY MENY 

1040 INPUT T 

1045 IF To THEN 1030 

1050 ON G GOTO 1600,1700,1800 

1060 IF T>A THEN 1030 

1610 IF TD/2 THE 1630 

1615 PRINT "YOU DESTROYED MY ARMYI 

1616 B=0 

1617 GOTO 2000 

1630 PRINT 7I WIPED OUT YOUR .ATTACKI 

1635 A=A-T 

1640 GOTO 2000 

1700 IF T>B THEN 1030 

1710 IF TE/2 THEN 1750 
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1720 
1750 


1751 


1755 
1760 
1765 
1770 


1771 
1775 
1780 
1790 
1800 


1810 
1820 


1830 


1831 
1835 
1837 


GOTO 1770 
PRINT "TI SUNK 2OF YOUR BATTLESHIPS， 
AND MY AIR FORCE" 


PRINT "WIPED OUT YOUR UNGAURDED 
CAPITOL .7 


A=A/4 

B=B/2 

GOTO 2000 

PRINT "YOUR NAVY SHOT DOWN THREE 
OF NMY XII PLANES，7 

PRINT "AND SUNK 3 BATTLESHIP9.7 

下 = 2xF/3 

巴 = (上 /2) 

GOTO 2000 

IF T2C THEN 1030 


IF T>F/2 THEN 1830 
GOTO 1850 


PRINT "MY NAVY AND AIR FORCE JIN A 
COMBINED ATTACK LEFTY7 


PRINT "YOUR COUNTRY IN SHAMBLES.7 
A=A/3 
B=B/3 


1840 C=C/3 


1845 
1850 


1851 
1860 


GOTO 2000 
PRINT "ONE OF YOUR PLANES CRASHED 
INTO MY HOUSE. TAM DEAD. 


PRINT "MY COUNTRY FELL APART." 
GOTO 2010 
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2000 
2001 


2002 


2005 


2006 


2007 


2008 


2010 


2012 


2015 


2016 


2020 
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PRINT 

PRINT "FROM 了 THE RES3ULTS OF BOTBH OF 
YOUR ATTACKS 光 

IF A+B+C?3/2*(D++F) THEN 2010 

IF A+B+CC2/3<xD+ 世 +EFE) THEN 2015 
PRINT THE TREEATY OF PARIS 
CQONCLUDE THATLT WE TAKE OURY 

PRINT 7RE9SPECTIVE COUNTRIES AND LIVE 
JN PEACE.Y 

GOTO 2020 

PRINT "YOU WON，OHI SHUCKSIIIIY 
GOTO 2020 

PRINT ”YOU LOST-I CONQUERED YOUR 
COUNTRY. IT SERVES YOU 

PRINT "RIGHT FOR PLAYING THIS 
STUPID GAME ! 忆 

END 


附录 ITRS-80 BASIC 语句 和 函数 简介 
以 及 将 其 转换 成 其 它 BASIC 的 方法 


本 书 所 列 的 程序 基本 上 是 依据 TR3 一 80 LEVELI 
DISK BASIC 〈 小 型 磁盘 的 BASIC 系统 ) 规则 号 的 。 
程序 中 所 用 到 的 主要 语句 和 函数 如 下 ， 


语句 
CL9 
DATA 
DEF FNX(X) 
DIM 


END 
FOR...TO...9TEP 


作用 
清除 显示 屏 画 面 ， 使 每 行 容 纳 64 个 字符 
置 数据 
自 定 义 函数 
只 用 来 定义 数组 而 不 用 来 定义 字符 串 大 
小 〈 字 符 串 所 占 内 存 空 间 用 CLEAR 
语句 指定 ) 。 数 组 下 标 从 0 开始 。 
结束 


束 循环 的 条 件 。 例 如 ; 
10 FOR I=2 TO 1 
20 PRINT I 
30 NEXT TI 
4 END 
执行 时 将 打印 出 一 个 《22”。 在 某 些 
BASIC (如 DJS 一 130) 中 ， 是 先 判断 是 
否 满足 结束 循环 的 条 件 。 因 此 执行 上 述 程 
序 时 ， 将 一 次 也 不 会 而 执行 20 语句 而 跳 
过 循环 。 
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GOTO 
GOSUB 
IF...THEN 


IJNPUT 


工 匡 工 


NEXT 
ON...GOTO 
ON...GOSUB 
PRINT 
RANDOM 

R 匡 AD 
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无 条 件 转移 

转子 程序 

不 仅 可 以 在 THEN 后 面 跟 一 语句 标号 ， 

还 可 以 直接 跟 一 个 或 多 个 可 执行 语句 ， 例 

如 ， 

10 IF X>0 THEN PRINT X ; 
GOTO 100 

20 了 PRINT X+2 


当 又 =5 时 ， 打 印 “5” 然 后 转 到 100 
语句 。 当 X= -5 时 打印 25。 (注意 ; 

不 满足 IF 语句 给 出 的 条 件 时 ， 执 行 下 一 
行 〈 而 不 是 本 行 中 的 下 一 个 语句 )。 

可 以 包括 一 个 “提问 字符 串 "。 如 : 

10 INPUT 7"X=%5 又 

执行 时 ， 打 印 出 : X=? 然后 你 打 入 义 
的 值 。 

这 个 “LET2” 字 可 以 省 略 ， 如 ， 

10 S=0 与 

10 LET S=0 

等 价 。 

循环 终点 

计算 COTO 语句 

计算 GOSUB 语句 

打印 

开启 随机 数 发 生 器 

读数 据 


REM 


RE3STORE 
RETURN 
STOB 


函数 
ABS(CX) 
ASC(X$) 


ATN 
CHR$(X) 


CO9(X) 
了 XP(CXy) 
INT(CX) 


LEFT$(X$,Y) 


LEN(X$) 
LOG(X) 


MID$CX$,Y,Z) 


RND (0) 


RIGHT$(CX$,Y) 


SGN (X) 


注释 语句 。 对 写 在 本 行 中 的 其 余 语句 不 予 
执行 。 

从 子 程序 返回 

暂停 


作用 
绝对 值 函 数 
把 X$ 中 第 一 个 字符 变 成 ASCII 码 。 
如 ASC(CA7) 的 值 为 66， ASC ("B”) 
的 值 为 66， 等 等 。 
反正 切 
将 一 个 ASCII 码 转换 成 一 个 字符 ， 如 
CHR$(65) 的 值 为 “A>” 。 
余 苞 函数 
指数 函数 
取 整 函数 
在 X$ 中 取 最 左边 的 Y 个 字符 
X$ 字符 串 中 字符 的 个 数 。 
以 e 为 底 的 对 数 ，LOGeX (或 lnX) 
的 X$ 串 中 第 Y 个 字符 开始 取 2 个 字 


如 果 M$ = "ABCDEFG" 

则 MID$CM$,5,2) ”的 值 为 “EF? 
取 一 个 大 于 0 小 于 11 的 随机 数 。 

取 X$ 中 最 右边 的 Y 个 字符 。 
符号 国 数 。X 为 负 时 其 值 为 ~13 X 为 
0.: 时 ， 其 值 为 05X 为 正 时 ， 值 为 +1。 
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SIN(XY 
SQR(X) 
STR$(X) 


TAB(X) 


TAN(X) 
VAL(X$) 


正 弥 函 数 。 

平方 根 函 数 。 

将 X 转换 成 字符 串 ( 是 一 个 数学 表达 
式 ) 。 如 : 

STR$(1.23) 的 值 是 一 个 字符 串 "1.23"” . 
打印 显示) 时， 打印 位 置 在 该 行 上 的 第 
X 个 位 置 (一 行 从 0 位 置 算 起 ) 

正切 函数 

STR$CX) 的 赣 函 数 ， 将 X$ 字符 串 变 成 
一 个 十 进 和 制 数值 。 

如 VAL("123.457) 的 值 为 数值 123.45。 


本 书 程序 中 将 用 到 以 下 一 些 功能 ， 如 果 你 的 BASIC 中 
无 此 功能 ， 则 应 自己 适当 修改 程序 。 
1 一 行 允 许多 个 语句 。 如 ， 


10 A=1l 
可 以 改写 为 : 
10 A=1l 
12 =2 
14 C=3 
但 要 注意 : 


: B=2:，C=3 


10 IFX=0THEN PRINT X : GOTO 100 
不 应 简单 改写 为 : 
10 IF X=0THEN PRINT X 
12 GOTO 100 
因为 当 X<0 时 ， 不 执行 GOTO 100 
有 些 ' BASIC (如 PDP 一 11) 不 是 用 冒 忌 〈(: ) 作为 行 
内 话 句 词 的 分 了 珊 符 而 是 用 反 八 枉 《〈\) 。 
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2 IF...THEN 后 面 可 以 跟 一 个 可 执行 语句 。 
如 :， 10 IF X<0 THEN PRINT -X 
20 


而 当 有 些 BASIC 不 允许 THEN 后 面 跟 一 可 执行 语句 
时 ， 可 以 改写 为 
10 IF X<0O THEN 100 
20 


100 PRINT -和 X 
110 GOTO 20 
3。 有 些 BA:SIC 版 本 (如 TRS 一 80 不 带 磁 盘 的 LEVEE 
T BASIC) 不 有 具备 自 定 义 国 数 。 可 以 改写 程序 。 如 ; 
10 DEF FNA(X) =X43+2*X+1 


100 T=FNA(Ci0)+Q 
可 以 改写 为 
10 REM FUNCTION DEFINITION REMOVED 


100 T=10f3+2*l0+1+Q 

4. 有 的 程序 中 用 到 字符 串 数 组 ， 如 

10 DIM A$(10) 

表示 A$ 为 字符 串 数 组 ， 包 含 十 一 个 元 素 (从 0 一 10)， 
每 个 元 素 邦 是 一 个 字符 串 变 量 。 如 :，A$(0) ,…A$(10) 都 是 
字符 串 的 变量 。 

如 果 你 的 计算 机 上 不 能 用 字符 串 数 组 ， 而 你 又 想 用 这 些 程 
序 , 则 应 将 它 改写 为 简单 的 字符 串 或 数值 数组 、 或 一 组 DATA 
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语句 或 建立 数据 文件 。 

5. 字符 串 苑 数 在 不 同 的 BASIC 中 有 不 同 的 表示 方 ， 
法 。 本 书 中 有 的 程序 中 用 到 子 字符 串 国 数 ， 如 ， RIGHT $， 
LEFT$ 或 MID $…， 而 有些 计 算 机 (如 Crom、nco 或 . 
了 JS“2=139 等 ) 的 BA3SIC 的 子 字符 串 国 数 不 是 用 以 上 方 
法 来 表示 的 ， 应 适当 地 改写 。 

如 ，RIGHT(X$,2) 表示 . X$ 中 最 右边 两 个 字符 。 如 果 . 
你 用 DJS 一 130， 则 可 以 改写 为 ; 

X$(LEN(X$) -1，LEN(X$)) 或 X$CLEN(CX$ -1)) 

如 果 Xp$ 的 长 度 为 10 个 字符 ， 它 相当 于 : 

X$(9，10) 或 X$(9) 
, 邯 从 第 9 个 字符 取 到 第 10 个 字符 。X$(9) 表 示 从 第 9 个 字符 
开始 取 到 最 后 一 个 字符 。 

如 果 是 Cromemco 的 BAS3IC， 由 于 它 的 字符 串 位 置 是 
从 0 位 置 起 算 的 ， 则 应 是 ，X$(8，9) ， 即 从 0 开始 数 测 8 ， 
从 这 个 字符 开始 取 到 位 置 为 9 的 那个 字符 。 应 为 ， 

X$(LEN(CX$) -2，LEN(X$) -1) 

如 在 本 书 的 程序 中 有 ， 

LEFT$(X$，2) ,表示 取 最 左 两 个 字符 。 在 DJs5 一 130 中 
应 改 为 ， X$(1，2)。 在 Cromemco BASIC 中 应 改 为 闪 $ 
(0，1)。 

如 果 遇 到 本 书 程 序 中 有 ， 

MID$(X$，5，2) , 它 表 示 从 X$ 中 第 5 个 字符 开始 取 两 
个 字符 。 在 DJ5 一 130 中 应 改 为 ， 

X$(5，6) 从 第 5 个 字符 开始 取 到 第 6 个 字符 。 

MID$ (X$，Y,Z) 改 写 为 :XCY,Y+Z2 -1)。Cromemco 
BASIC 中 应 改 为 X$(Y-1，Y+Z-2)。 
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6. TRS 一 80 BASIC 不 必 对 每 一 个 空 符 串 定义 内 存 大 
小 .而 用 CLEAR n 语句 开辟 an 个 字 节 (每 一 字 节 中 放 一 字符 》 
放 字 符 串 ， 翌 这 中 用 到 能 字 许 串 中 的 字符 个 数 的 总 数 不 应 超过 
n 。 如 果 用 DJS 一 130 或 Cromemco BASIC， 应 对 每 一 个 
字符 串 分 别 定义 其 长 度 。 如 在 DJS 一 130 中 ， 

10 DIM A$(10)，B$(20) 
表示 A$ 字符 串 长 度 不 超过 10，B$ 长 度 不 超过 20。 

7. 在 IF 一 THEN 语句 中 有 时 用 到 复合 条 件 ， 如 

1 IF X>0 AND Y>0 THEN 100 

20 (下 一 行 ) 


70 IF T>oOR W>0 THEN 200 
等 等 。 有 的 BASIC 不 允许 用 复合 条 件 (不 能 出 现 AND， 
OR，NOT 等 轴 辑 运算 符 ) ， 可 以 改写 如 下 ， 

10 IF X<=0 THEN 20 

12 IJF Y>0 THEN 100 

20 (下 一 行 ) 

以 及 

70 IF T>0 THEN 200 

72 IF W>0 THEN 200 

80  《〈 下 一 行 ) 

8. RND(0) 的 值 是 0~1 之 间 一 个 随机 小 数 ， 每 次 给 出 
不 同 的 值 。 而 在 某 些 计算 机 所 用 的 BASIC 中 写 RND(0) 则 
得 到 一 个 和 前 一 次 相同 的 随机 小 数 。 此 时 ， 改 用 RND(1) 即 
可 。 如 果 每 次 运行 都 出 现 同一 组 随机 数 ， 可 在 程序 开头 加 一 个 
RANDOMW 语句 〈 随 机 化 语句 )， 有 的 计算 机 《〈 如 Cromemco) 
用 RANDOMIZE 语句 。 
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